Lotus Script Problem - ArrayAppend

[Small]

hiho,

ich habe folgendes Problem:
Ich arbeite in einem Formular mit "dynamischen Textlisten" als Ersatz für dynamische Tabellen. Doch leider will mein Scipt einfach nicht mehr funktionieren.

Zur Funktionsweise:
Der User gibt eine beliebige Anzahl an Daten (Datum_von, Datum_bis, Zeit_von, Zeit_bis) ein. Diese werden dann in die zugehörigen Textlisten (Datum_von_liste, Datum_bis_liste, Zeit_von_liste, Zeit_bis_liste) gespeichert.

Der Quellcode:

Code

Sub Click(Source As Button)
   
   Dim workspace As New notesuiworkspace
   Dim uidoc As notesuidocument
   
   Set uidoc      =   workspace.currentdocument
   Set doc      =   uidoc.document
   
   uidoc.refresh
   
   doc.Datum_von_liste = Arrayappend(doc.Datum_von_liste,doc.Datum_von(0))   
   doc.Datum_bis_liste = Arrayappend(doc.Datum_bis_liste,doc.Datum_bis(0))
   doc.Zeit_von_liste = Arrayappend(doc.Zeit_von_liste,doc.Zeit_von(0))
   doc.Zeit_bis_liste = Arrayappend(doc.Zeit_bis_liste,doc.Zeit_bis(0))
   
   doc.Datum_von = ""
   doc.Datum_bis = ""
   doc.Zeit_von = ""
   doc.Zeit_bis = ""
   
   doc.tZaehler=Cvar(doc.tZaehler(0))+1
   
   uidoc.Refresh
   
End Sub

Sobald ich den Button betätige bekomm ich einen Stack-Overlow (laut Notes.rip).
Weiß leider keinen Rat, da das Script sonst immer Problemlos funktioniert, nur hier einfach nicht.

Danke schon mal im vorraus.

Gruß
René

PS: Anhang ist die Fehlermeldung beim Betätigen des Buttons.

[Axel]

Hi,

du schreibst was von Textlisten. Sie die Felder, besonders die Felder ..._liste, auch von Typ Text?

Dann würde ich an deiner Stelle mit AppendToTextList aus der Klasse NotesItem arbeiten.


Axel

[Small]

hiho,

supi, damit klappt es. Danke

Code

Sub Click(Source As Button)
   
   Dim workspace As New notesuiworkspace
   Dim uidoc As notesuidocument
   Dim datum_von_liste, datum_bis_liste,zeit_von_liste,zeit_bis_liste As NotesItem
   
   Set uidoc      =   workspace.currentdocument
   Set doc         =   uidoc.document
   
   Set datum_von_liste = doc.GetFirstItem( "Datum_von_liste" )
   Set datum_bis_liste = doc.GetFirstItem( "Datum_bis_liste" )
   Set zeit_von_liste = doc.GetFirstItem( "Zeit_von_liste" )
   Set zeit_bis_liste = doc.GetFirstItem( "Zeit_bis_liste" )
   
   Call datum_von_liste.AppendToTextList(Cstr(doc.Datum_von(0)))
   Call datum_bis_liste.AppendToTextList(Cstr(doc.Datum_bis(0)))
   Call zeit_von_liste.AppendToTextList(Cstr(doc.zeit_von(0)))
   Call zeit_bis_liste.AppendToTextList(Cstr(doc.zeit_bis(0)))
   
   doc.Datum_von = ""
   doc.Datum_bis = ""
   doc.Zeit_von = ""
   doc.Zeit_bis = ""
   
   doc.tZaehler=Cvar(doc.tZaehler(0))+1
   
   uidoc.Refresh
   
End Sub

Trotzdem würde mich mal interessieren, warum das auftritt, da ich wie gesagt, in anderen Formularen problemlos damit arbeiten kann.

Gruß
René

[Axel]

Hi,

da kann ich dir leider auch nicht beantworten.


Axel