查询

点击"search"按钮    找出"subject"为"ff2"的文档  并在"return"域中返回
Sub Click(Source As Button)
 Dim ws As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 
 Dim session As New NotesSession
 Dim dt As New NotesDateTime("01/01/06")
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim cdoc  As  NotesDocument
 Dim item As NotesItem
 
 Set uidoc=ws.CurrentDocument
 Set cdoc = session.DocumentContext
 
 Set db = session.CurrentDatabase
 Set dc = db.Search("@Contains(Subject;""ff2"")", dt, 0)
 Set doc = dc.GetFirstDocument()
 
 Dim s  As String  
 While Not(doc Is Nothing)
  If (s="") Then
   s=doc.subject(0)
  Else
   s=s & ";"  & doc.subject(0)
  End If
  Set doc = dc.GetNextDocument(doc)
 Wend
 Call uidoc.FieldSetText("return",s)
 
End Sub

转载于:https://www.cnblogs.com/xuxu7325/archive/2006/04/13/374108.html