Här är ett lotusscript som använder sig av Listor för att exkludera alla dokument i en notesdocumentcollection som har ett visst fältvärde. i exemplet nedan loopar jag igenom en notesdokumentcollection och skapar en lista som bara innehåller ett dokument per formulär. dvs om min collection ursprungligen innehåller 100 notesdokument med 5 olika formulär så kommer min lista innehålla endast 5 dokument
För att sedan använda dokumenten i min lista behöver jag loopa den med "ForAll".
Fråga: Är det någon som vet om det är möjligt att få ut hur många objekt en lista innehåller utan att loopa?
Sub Initialize()
' Ta bort alla dokument med samma värde från en collection
Dim DocsList List As NotesDocument
Dim dc As NotesDocumentCollection,db As NotesDatabase,i As Integer
Dim doc As NotesDocument,session As New NotesSession
Set db = session.CurrentDatabase
Set dc = db.GetModifiedDocuments(Nothing, DBMOD_DOC_DATA)
For i = 1 To dc.count
Set doc = dc.Getnthdocument(i)
Set docsList(doc.Form(0)) = doc
Next
ForAll d In docsList
Print d.Getitemvalue("Name")(0)
End ForAll
End Sub
Lämna gärna en kommentar