Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim entry As NotesViewEntry
 Dim vc As NotesViewEntryCollection
 Dim parentV As NotesView
 Dim doc As NotesDocument
 Set db = session.CurrentDatabase
 Set view = db.GetView("By Category")
 Set entry = view.GetEntryByKey("Cars")
 Set vc = view.GetAllEntriesByKey("Cars")
 Set parentV = vc.Parent
 Set doc = entry.Document
 Call vc.FTSearch("Supra", 10)
 Messagebox "Count:" & vc.Count & Chr(10) _
 & "Parent view:" & parentV.Name & Chr(10) _
 & "Query:" & vc.query
End Sub

関連項目

ビューエントリコレクションにアクセスする

用語集