Examples: NotesViewEntry class

  1. This script finds the current view entry and prints the number of its immediate children.
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set entry = view.GetEntryByKey("Inventory")
Messagebox entry.ChildCount
  2. This script finds the document associated with the view entry.
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set entry = view.GetEntryByKey("Product Specifications")
Set doc = entry.Document
  3. This script displays the universal ID of the Parts document which is associated with the current view entry, Cars.
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
view.AutoUpdate = False
Set entry = view.GetEntryByKey("Cars")