Autor Thema: Forall Probleme  (Gelesen 1819 mal)

Offline rar

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 856
  • Geschlecht: Männlich
  • Des passt scho
    • click
Forall Probleme
« am: 02.08.02 - 15:00:11 »
Hi Leitln!
Kann mir jemand sagen warum in folgendem Script ein Fehler ist:

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim view As NotesView
Set view = db.GetView("view")
Dim coll As NotesDocumentCollection
Set coll = view.GetAllDocumentsByKey("key", True)      
Forall x In coll
    'xxxxxxx            
End Forall      

In der Zeile Forall x In coll motzt er immer
Not an array, list, collection or variant: coll

lg
rar
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
†090620141300

Offline hOtze

  • Aktives Mitglied
  • ***
  • Beiträge: 159
  • Geschlecht: Männlich
  • .:[gEHt nIt???? gIBTs nIt!!!!]:.
Re: Forall Probleme
« Antwort #1 am: 02.08.02 - 17:11:18 »
Hi.....

Hast kein:

Dim coll as NotesDocumentCollection

(aber das dürfte nicht der fehler sein. Aber ich würde immer Option Declare setzen, dann kannst du auf keinen fall vergessen was zu deklarieren)

Was sagt den der Debuger? Hat er überhaupt docs in der Coll? Stimmt der Key, mit der Ansicht überein?
Die ansicht muß in der ersten spalte kategoresiert, und aufsteigend sortiert sein.

Check mal die ganzen sachen.
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
...........::]hOtze[::...............................................

Offline rar

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 856
  • Geschlecht: Männlich
  • Des passt scho
    • click
Re: Forall Probleme
« Antwort #2 am: 05.08.02 - 08:40:23 »
Morgen!
In der 6ten Zeile habe ich die coll deklariert.
Und mitm Debugger kann ich auch nichts machen.
Das Problem ist, das ich das script nicht abspeichern kann, weil in der Zeile:
Forall x in coll anscheinend ein Syntaxfehler ist :-/
Beim Speichern wird die Zeile rot und unten in der Fehlerleiste steht:
Not an array, list, collection or variant: coll
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
†090620141300

Offline hOtze

  • Aktives Mitglied
  • ***
  • Beiträge: 159
  • Geschlecht: Männlich
  • .:[gEHt nIt???? gIBTs nIt!!!!]:.
Re: Forall Probleme
« Antwort #3 am: 05.08.02 - 08:50:32 »
Achso du kannst das nit speichern!

Dann würde ich jetzt mal vermuten das der ForAll nur für Arrays is. Du hast ja aber eine DocumentCollection.

Mußt das anders lösen........
Schmeiß den ForAll raus.

dim doc as NotesDocument

Set doc = coll.GetFirstDocument
     
Do
           'xxxxx'
           Set doc = coll.GetNextDocument(doc)
     Loop Until doc Is Nothing
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
...........::]hOtze[::...............................................

Offline Zimmi

  • Aktives Mitglied
  • ***
  • Beiträge: 166
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re: Forall Probleme
« Antwort #4 am: 05.08.02 - 09:20:15 »
... oder ....

For i = 1 to coll.count
    set doc = coll.getnthdocument( i )
     'tu etwas ...
Next

Grüße von
Jimmi
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline rar

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 856
  • Geschlecht: Männlich
  • Des passt scho
    • click
Re: Forall Probleme
« Antwort #5 am: 05.08.02 - 10:10:24 »
Ich habe das jetzt mit
Set doc = coll.GetFirstDocument
Do While Not serv Is Nothing

Set doc = coll.GetNextDocument(doc)
Loop

gemacht.

Aber laut Hilfe, sollte es mit Forall auch gehen. (Example3)
Ziemlich deppat, daß man sich nicht auf die Hilfe verlassen kann.
Komisch ist auch, daß coll eigentlich eine Collection ist. Obwohl er das bemängelt.

Trotzdem Danke an euch
-rar
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
†090620141300

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz