Tabellen erweitern

[redspawn]

Hi zusammen,

ich hab ne einfache Tabelle mit 10 Zeilen. In jeder Zeile steckt ein Datums- oder Textfeld.
Die erste Zeile wird immer angezeigt, ab der zweiten soll der User die Möglichkeit haben weitere Zeilen "hinzuzufügen". Das habe ich so realisiert, dass ich ein verborgenes Textfeld hinzugefügt habe, das als Zähler dient. Das Feld heißt auch Zähler!!! Zusätzlich hab ich einen Button eingefügt mit dem man den Zähler jeweils um eins erhöhen kann.
Soll heißen, mit jedem Klick auf den Button --> Zähler eins hoch, und eine nächste Zeile in der Tabelle wird sichtbar.

Formel zum Verbergen der Felder:

@If(Zaehler > "3"; @True; @False)

Script zum erhöhen des Zählers:

Dim zaehlerAlt As Integer
Dim zaehlerNeu As Integer
Dim Umgebung As New NotesUIWorkspace
Dim Maske As NotesUIDocument
Set Maske = Umgebung.CurrentDocument
   
zaehlerAlt = CInt(Maske.FieldGetText( "Zaehler" ))
zaehlerNeu = zaehlerAlt + 1
   
Call Maske.FieldSetText( "Zaehler" , Cstr(zaehlerNeu))

Das funzt auch einwandfrei!!!

Nur hab ich jetzt das Problem, dass die Felder in der Tabelle, also die Zeilen immer noch angezeigt und nicht verborgen werden.

Bin ich da mit meiner Vorgehensweise auf dem Holzweg oder warum tut das nicht?!?!?

Danke schon mal für die Entfernung des Brettes vor meinem Kopf!!!

Gruß Peter

[Glombi]

Du müsst die Verbergenformeln neu berechnen:

dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocument
set uidoc = ws.CurrentDocument
Dim zaehlerAlt As Integer
Dim zaehlerNeu As Integer
Dim Umgebung As New NotesUIWorkspace
Dim Maske As NotesUIDocument
Set Maske = Umgebung.CurrentDocument
   
zaehlerAlt = CInt(Maske.FieldGetText( "Zaehler" ))
zaehlerNeu = zaehlerAlt + 1
   
Call Maske.FieldSetText( "Zaehler" , Cstr(zaehlerNeu))
call uidoc.RefreshHideFormulas

Andreas

[redspawn]

Ok, Danke!!!

Nur noch ein Problem... er zeigt mir die Felder in der zweiten Reihe erst an, wenn ich nach dem Klick auf den Button Zähler noch irgendwo anders hinklicke.
Bei Kontrollkästchen gibt es ne Möglichkeit Schlüsselwertfelder zu aktualisieren. Wie rufe ich das per LS auf?

Gruß

[Glombi]

call uidoc.Refresh

[redspawn]

Klasse, oft sind es die kleinen Dinge über die man stolpert...

Vielen Dank Glombi!!!!