欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

啊如何用lotusscript调用其他数据库用的域值啊

更新时间: 2014-01-05 03:01:27 责任编辑: Author_N1

 

求助啊,怎么用LOTUSSCRIPT调用其他数据库用的域值啊?
如题。最好有完整的语言啊,谢谢各位大虾啦,单位领导一定要用LS。。。
--参考方法--
你这个问的太概括了。
调用其他数据库的文档中的值;
举个例子,如果用UNID去调用的话就是
就是set doc = db.getdocumentbyunid("unid值")

--参考方法--
把按关键字查找方式编程视图遍历方式
Function GetInfoFromOverTime()

Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document

Dim dc As NotesDocumentCollection
Dim database As NotesDatabase
Dim fdoc As NotesDocument
Dim view As NotesView

'得到后台配置文档
Dim pdoc As NotesDocument
Dim db As NotesDatabase
Set db=session.CurrentDatabase
Set pdoc=db.GetProfileDocument("profile")

'server
Dim sv As String
sv=pdoc.server2(0)
Dim file As String
file=pdoc.file2(0)

'srfdev_1,0\overtime.nsf
Set database=session.GetDatabase(sv,file)
Set view=database.GetView("view_OverTimeDate")
Set fdoc = view.GetFirstDocument
'把原来的按关键字查找编程遍历视图就行了。
While Not fdoc Is Nothing
'视图中每个文档的Swork域的值赋给当前文档哪个域需要调整。
doc.RH70=Cint(fdoc.Swork(0))
Set fdoc = view.GetNextDocument(fdoc)
Call doc.Save(True,False)
Wend

End Function
这样域RH70的结果是视图“view_OverTimeDate”最后一个文档中域Swork的值,不要搜索条件的话是这样。
这不是最终代码,你还得根据你的需求稍微改动一下。

--参考方法--
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = ss.GetDatabase("","数据库路径(如lks/koa/lks_System.nsf)",True)
Set doc = db.GetDocumentByUnId("文档ID")
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:01:27
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/17418/
本文WWW.DOC100.NET DOC100.NET版权所有。