Slide 13
Slide 13 text
getAllEntriesByKey
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim vw As NotesView
Dim ec As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim keys$( 0 )
Dim tmp As Variant
Set db = ss.Currentdatabase
Set vw = db.Getview( "byTitle“ )
vw.Refresh
vw.Autoupdate = False
keys( 0 ) = "
果物#1“
Set ec = vw.
getAllEntriesByKey( keys, True )
Set entry = ec.Getfirstentry()
While Not entry Is Nothing
tmp = entry.Columnvalues( 1 )
If IsArray( tmp ) Then
Print Join( tmp, “,” )
Else
Print tmp
End If
Set entry = ec.Getnextentry( entry )
Wend
ビューエントリの
集合
一致する全ての
エントリを取得
エントリから2列
目の値を出力
結果
いちご
いちご
びわ
バナナ
バナナ