Lotus script的一些常用方法.docVIP

LotusScript 是完全面向对象的编程语言。它通过预定义的类与 Domino 接口。Domino 监控用户代码的编译和加载，并且自动包含 Domino 访问现有的对象最好使用 LotusScript，例如：根据其他文档的值来更改一个文档中的值。LotusScript (ACL) 的能力。 script关键是取对象，查看对象的属性，所以你要学会看notes提供的Script帮助。下面是我收集的一些script例子。一般是比较技巧的程序，要学习一般script编写，请下载lotusScript学习库！LotusScript Domino 接口。Domino 监控用户代码的编译和加载，并且自动包含 Domino 访问现有的对象最好使用 LotusScript，例如：根据其他文档的值来更改一个文档中的值。LotusScript (ACL) 的能力。 script关键是取对象，查看对象的属性，所以你要学会看notes提供的Script帮助。下面是我收集的一些script例子。一般是比较技巧的程序，要学习一般script编写，请下载lotusScript学习库！set doc = vw.getfirstdocument() if doc is nothing then end if 如何将查询结果放到一个文件夹里？下面是将搜索结果放到名叫newfolder的文件夹中，并跳转到该文件夹上Sub Click(Source As Button) Dim docs As notesdocumentcollection Dim doc As notesdocument...........q=doc.query(0)Set docs = db.ftsearch(q, 0)Call docs.PutAllInFolder( newfolder )Call w.OpenDatabase( ,,newfolder)End Sub如何删掉数据库中所有私有视图Dim session As New notessession Dim db As notesdatabase Dim doc As notesdocument Set db=session.currentdatabase Forall i In db.views Set doc=db.getDocumentByUNID(v.universalID)  这个地方视图当作文档来处理，以便取到视图的一些属性。 viewflag=doc.getItemvalue($flags) If viewflag(0)=pYV Then  视图属性中$flags为pYV的是私有视图。 Call i.remove End If End Forall Notes中调用ODBC数据源中的进程？ODBC调用access数据库（资料库）的script代码Dim session As New NotesSessionDim con As New ODBCConnectionDim qry As New ODBCQueryDim result As New ODBCResultSetSet qry.Connection = conSet result.Query = qrycon.ConnectTo(资料库)qry.SQL = SELECT * FROM result.ExecuteIf result.IsResultSetAvailable ThenDo result.NextRowid=result.GetValue(ID,id)Loop Until result.IsEndOfDataresult.Close(DB_CLOSE)ElseMessagebox Cannot get result set for AssetDataExit SubEnd Ifcon.DisconnectEnd Sub从后台刷新当前文档？将当前文档先关闭后再打开 set doc=uidoc.document ...... call uidoc.save() call uidoc.close() set uidoc=ws.editdocument(doc) 获得当前视图中选择了的文档？可以用 Notesdatabase 的 Unprocesseddocuments Dim session As New notessessionDim db As notesdatabaseDim collection As notesdocumentcollectionSet d