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
在Notes视图中游弋
最新推荐文章于 2022-05-13 16:56:45 发布