LOTUSSCRIPT/COM/OLE CLASSES

Examples: GotoChild method
This Visual Basic code (GotoChild_Click Sub) goes to the child of the current entry. It displays a message if the child entry is the same as the last entry.

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 GotoChild_Click()
Call n.GotoChild(e)
Set e = n.GetCurrent
If e.GetPosition(".") = lastPosition Then
 MsgBox "No more children", , "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