在Notes视图中游弋

Sub Initialize()
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim entry As NotesViewEntry
 Dim entryDoc As NotesViewEntry
 Dim entryTown As NotesViewEntry
 Dim nav As NotesViewNavigator
 Dim doc As NotesDocument
 Set db = session.CurrentDatabase
 Set view = db.GetView("fmTownByCity")
 view.AutoUpdate = False
 Set nav = view.CreateViewNav
 Set entry = nav.GetFirst
 Dim iCount,i As Integer
 %REM
 While (Not entry Is nothing)
  MsgBox entry.Columnvalues(0)
  Call nav.Getchild(entry)
  Set entryDoc = nav.GetChild(entry)         
          While (Not entryDoc Is Nothing)
           Set doc = entryDoc.Document
           MsgBox doc.Area(0)
           Set entryDoc = nav.Getnextsibling(entryDoc)
          Wend    
  Set entry = nav.GetNextCategory(entry)
 Wend
  %END REM
  While (Not entry Is Nothing)
  Call nav.Getchild(entry)
  Set entryDoc = nav.GetChild(entry)         
          While (Not entryDoc Is Nothing)
           MsgBox entryDoc.Columnvalues(1)
           Set entryDoc = nav.Getnextsibling(entryDoc)
          Wend    
  Set entry = nav.GetNextCategory(entry)
 Wend
End Sub