Examples: GetNext method (NotesViewNavigator - LotusScript®)
- This script returns the next entry after the specified entry in
the view navigator.
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entryA As NotesViewEntry Dim entryB 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.CreateViewNavFromCategory("Sale items") Set entryA = nav.GetNth(2) Set entryB = nav.GetNext(entryA) Set doc = entryB.Document Call doc.PutInFolder("Midnight Madness")
- This script iterates through the entries in the view navigator.
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entry 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.CreateViewNavFromCategory("Sale items") Set entry = nav.GetFirstDocument While Not(entry Is Nothing) Set doc = entry.Document Call doc.PutInFolder("Midnight Madness") Set entry = nav.GetNextDocument(entry) Wend