Examples: Query property

This script displays the text of the query that produced the view entry collection.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set vc = view.GetAllEntriesByKey("Cars")
Messagebox "Query text: " & vc.Query