点击"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
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