LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entryA As NotesViewEntry Dim entryB As NotesViewEntry Dim entryC As NotesViewEntry Dim nav As NotesViewNavigator Dim doc As NotesDocument Set db = session.CurrentDatabase Set view = db.GetView("By Category") view.AutoUpdate = False Set nav = view.CreateViewNav Set entryA = nav.GetFirst Set entryB = nav.GetNextCategory(entryA) Set entryC = nav.GetPrevCategory(entryB) Messagebox entryC.ChildCount
See Also