Hallo Marko,
>
> Ich möchte ein Formular in Writer erstellen. Ich habe eine kleine Tabelle
> in der ich Textfelder drin habe. In die Textfelder kommen Mengenangaben.
> Jetzt möchte ich zum Abschluss eine Summe aller Mengenangaben in eine
> Spalte der Tabelle haben.
> Geht das überhaupt das ich Summen aus Textfeldeingaben bilden kann?
> Ich habe bis jetzt noch keine Möglichkeit gefunden.
Warum machst Du das mit Textfeldern? Warum nutzt Du nicht einfach eine Tabelle
und lässt in der letzten Spalte summieren?
Ansonsten ist ein Formular erst einmal nur etwas, was zum Eingeben von Daten
dient. Das Rechnen mit diesen Daten erfolgt dann entweder über eine Datenbank
oder, wenn es nichts mit einer Datenbank zu tun hat, nur über Makros.
Beispiel dafür:
SUB Summieren
REM zuerst alle Variablen deklarieren
REM Für Dezimalzahlen statt INTEGER DOUBLE wählen
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oFeld AS OBJECT
DIM in1 AS INTEGER
DIM in2 AS INTEGER
DIM inSumme AS INTEGER
REM Auf das Dokument zugreifen
oDoc=thisComponent
oDrawpage=oDoc.drawpage
REM Das Formular muss im Formularnavigator mit dem Namen "MainForm"
versehen sein (Standardwert)
oForm=oDrawpage.forms.getByName("MainForm")
REM Das Zielfeld soll "Summe" heißen, die beiden Beispielfelder
"Eingabe1" und "Eingabe2"
oFeld=oForm.getByName("Summe")
in1 = oForm.getByName("Eingabe1").CurrentValue
in2 = oForm.getByName("Eingabe2").CurrentValue
REM Da die Variablen als Integer deklariert sind kann damit gerechnet
werden (natürlich nur, wenn auch eine Ganzzahl da drin stand ...)
inSumme = in1 + in2
REM Das Rechenergebnis wird in dem Feld "Summe" ausgegeben
oFeld.BoundField.updateInt("inSumme")
END SUB
Dieses Makro packst Du an die Textfelder "Eingabe1" und "Eingabe2", in die Du
etwas eingeben willst, vermutlich am günstigsten an die Eigenschaft "Bei
Fokusverlust".
Gruß
Robert
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
