Examples: DescendantCount property

This script displays the number of descendants belonging to the Employees view entry in the By Category view.

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("Employees")
Messagebox entry.DescendantCount