Lotus Domino Designer 8 ヘルプ - 例:ビューエントリコレクションからエントリを取り出す

LOTUSSCRIPT /COM/OLE のクラス

例:ビューエントリコレクションからエントリを取り出す
1 次の例では、コレクション内のエントリを検索し、そのエントリをフォルダに入れます。

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entryOne As NotesViewEntry
Dim entryTwo As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set vc = view.GetAllEntriesByKey("Books")
Set entryOne = vc.GetNthEntry(2)
Set entryTwo = vc.GetEntry(entryOne)
Set doc = entryTwo.Document
Call doc.PutInFolder("Shopping Cart")
End Sub

2 次の例では、コレクション内の最初と最後のエントリを検索します。

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim entry2 As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set vc = view.GetAllEntriesByKey("Products")
Set entry = vc.GetFirstEntry()
Set entry2 = vc.GetLastEntry()
Set doc = entry.Document
Set doc2 = entry2.Document
Call doc.PutInFolder("First entries")
Call doc2.PutInfolder("First entries")
End Sub

3 次の例は、NotesView の GetAllEntriesByKey メソッドを使ってビュー内の全エントリを収集し、NotesViewEntryCollection の GetFirstEntry および GetNextEntry メソッドを使ってコレクションのエントリを順に表示します。GetLastEntry および GetPrevEntry メソッドを使ってコレクションの最後から順に表示することもできます。

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Dim vc As NotesViewEntryCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set vc = view.GetAllEntriesByKey("Products")
Set entry = vc.GetFirstEntry()
While Not(Entry Is Nothing)
Set entry = vc.GetNextEntry(entry)
Wend
End Sub

関連項目

ビューエントリコレクションからエントリを取り出す

用語集

フィードバック ヘルプ または プロダクトユーザビリティ?

ヘルプの使い方

すべてのヘルプ項目

用語集