LOTUSSCRIPT/COM/OLE CLASSES
Dim s As New NotesSession Dim db As NotesDatabase Dim v As NotesView Dim n As NotesViewNavigator Dim e As NotesViewEntry Dim lastPosition As String
Private Sub GotoPrevSibling_Click() Call n.GotoPrevSibling(e) Set e = n.GetCurrent If e.GetPosition(".") = lastPosition Then MsgBox "No more siblings", , "END" Else lastPosition = e.GetPosition(".") End If End Sub
Private Sub InitializeNav_Click() Set s = New NotesSession s.Initialize Set db = s.GetDatabase("", "Web test") Set v = db.GetView("By Category") Set n = v.CreateViewNav End Sub
See Also