Domino 9 und frühere Versionen > ND6: Entwicklung

ColumnValues --- Variant does not contain a container

<< < (3/4) > >>

Semeaphoros:
Hm, jetzt wirds aber abenteuerlich ...... sieht mir fast so aus, wie wenn die Variable "Doc" hier kein NotesDocument sein sollte, sondern ein NotesViewEntry ??

Jedenfalls, wenn Du in solchem Code Fehler beheben willst, dann ist Deine Aufgabe eine Sisyphus-Aufgabe: das kannst Du schlichtweg vergessen, ohne mehrjährige Erfahrung mit LotusScript.

littleS:
Hi,
ich versuche mal die relevanten Teile des Codes hierhin zu schreiben:

Dim doc As NotesDocument
Dim v,sp(2) As Variant
Dim db As NotesDatabase
Dim view As NotesView
Dim session As New NotesSession
...
Set db = session.CurrentDatabase
Set view = db.GetView("Verfügbar")
...
Set doc = view.GetDocumentByKey(Datevalue(terminb))
...
If Isarray(doc.ColumnValues(0)) Then 
   v = doc.ColumnValues(0)                   '// Datum eines Termins
   sp(0) = v(0)     
   v = doc.ColumnValues(1)                   '// Datum/Uhrzeit des Beginns
   sp(1) = v(0)
   v = doc.ColumnValues(2)                   '// Datum/Uhrzeit des Terminendes
   sp(2) = v(0)
Else
   sp(0) = doc.ColumnValues(0)
   sp(1) = doc.ColumnValues(1)
   sp(2) = doc.ColumnValues(2)
End If
...
If sp(0) > Datevalue(terminb) Then Exit Do
....

Müsste also als erstes doc nicht als NotesDocument sondern als NotesViewEntry deklariert werden?

Viele Grüße

Semeaphoros:
Nein, dann lässt er sich so nicht mehr setzen.

Auch mit diesem Abschnitt lässt sich genaueres nicht sagen, der Code ist schlichtweg unsinnig.

koehlerbv:
Dieser Teil

--- Code: ---If Isarray(doc.ColumnValues(0)) Then
   v = doc.ColumnValues(0)                   '// Datum eines Termins
   sp(0) = v(0)     
   v = doc.ColumnValues(1)                   '// Datum/Uhrzeit des Beginns
   sp(1) = v(0)
   v = doc.ColumnValues(2)                   '// Datum/Uhrzeit des Terminendes
   sp(2) = v(0)
--- Ende Code ---
wird niemals ausgeführt.

Diese Aussage irritiert mich zutiefst:

--- Zitat ---da ich mich zum einen erst seit knapp 2 Wochen mit Lotus Notes beschäftige und zum zweiten die Kunden auf die Abarbeitung von Fehlerreports warten
--- Ende Zitat ---

Bernhard

littleS:
Hi,

im Debugger wird der erste Teil der If-Anweisung durchlaufen, zumindest wenn als Datentyp von doc.ColumnValues im Debugger [Variant()] angezeigt wird.
Der ursprüngliche Programmierer arbeitet hier nicht mehr und ich wurde vor kurzem dazu auserkoren mich um die eintrudelnden Fehlermeldungen zu kümmern. Bis vor 2 Wochen dachte ich noch, daß man LotusNotes nur zum email schreiben benutzt :>
Naja mal schauen, ob ich den ein oder anderen Fehler noch einkreisen kann.

Viele Grüße

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete