LOTUSSCRIPT/COM/OLE CLASSES
Examples: GetNext method
1. 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")
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")
2. 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")
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
Véase también
GetNext method
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario