如题。最好有完整的语言啊，谢谢各位大虾啦，单位领导一定要用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")