Domino 9 und frühere Versionen > Entwicklung

Schleifenproblem (DO WHILE LOOP)

<< < (2/2)

Axel:
Hi,

eigentlich ganz logisch, dass irgendwann die Fehlermeldung kommt. Die kommt genau nach dem letzten Eintrag, denn dann ist entry Nothing, also nicht gesetzt.

Ändere deine Schleife wie folgt:

....
   Set acl = db.ACL  
   Set entry = acl.GetFirstEntry  
   Do While Not (entry Is Nothing)
      If entry.Name <> "" Then Exit Do
      item.appendToTextList(entry.Name)  
      Set entry = acl.GetNextEntry(entry)  
   Loop
...

Ich hab's zwar nicht probiert, sollte aber so funktionieren.


Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete