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

関連項目

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

用語集