NOTESSIDAN

Allt om Lotus Notes & Domino




Unik notesdocumentcollection med Listor

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




Relevanta Poster på Notessidan:



Fler Poster om:

Fler bloggar om:

Technorati:

Delicious:
Publicerad 2010-05-05 | Kommentarer: 3 | Läsningar:

Kommentarer

Fredrik ( 2010-05-05 21:17:39 )

Stephan H. Wissel ( 2010-05-06 04:48:53 )

Thomas Adrian ( 2010-05-06 06:51:20 )



Sök på Notessidan
Thomas Adrian
ThomasCertifierad utvecklare och administratör inom Notes & Domino

Kontakta mig







Senaste Sökningarna på Notessidan
Sön - sharepoint (R:1)
Sön - räkna and antal and besökare (R:0)
Sön - browser (R:17)
Sön - stoppar and mail (R:1)
Sön - korrupt (R:3)
Sön - böcker (R:0)
Sön - kalendern (R:12)
Sön - feature (R:15)
Sön - print and mime (R:2)
Sön - länka (R:0)
Sön - databasen (R:94)
Sön - access (R:47)
Sön - outlook (R:15)
Sön - webanvändare (R:0)
Sön - google and maps (R:6)
Sön - juffe (R:2)
Sön - uidoc.print (R:1)
Sön - java and lotusscript (R:26)
Sön - besök (R:0)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1404
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 147,75Mb
Fixup: 2019-09-16 00:30:49
FT:2019-09-16 08:16:13
DB Procent använd: 99,8
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 7981
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 576
Antal Attachments: 159
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1FP9|August 14, 2017
Server Plattform: Windows/64
Ändrad: 2019-09-16 08:40:43
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=131$ZN=W. Europe
Region:
Kommentarsspam Idag: 5
Kommentarsspam Totalt: 18780


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker