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:
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.
hiho,
supi, damit klappt es. Danke
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é