von zap » Sa, 30.07.2005 19:32
Hi Christian,
Formulare sind nicht unbeding mein Spezialgebiet, d.h. ich bitte die Anderen meine Fehler zu korrigieren.
Superkurzform: In OOo kann man die Kontrollfelder von Formularen an bestimmte Datenbankfelder binden. Damit dass funktioniert, hat jedes Formular genau eine zugeordnete Datenquelle. Aus dieser Datenquelle ist fuer das Formular genau eine Zeile aktiv.
Als Beispiel habe ich die Bibiography-Datenbank an ein Grid gebunden:
Code: Alles auswählen
sub formulare
doc = thiscomponent
' nur ein formular vorhanden, es hat den index 0
formular = doc.drawpage.forms(0)
' aktive zeile abfragen. zaehlung beginnt bei 0
msgbox formular.getrow()
' naechste zeile auswaehlen. solange es weitere zeilen
' gibt, gibt next true zurueck.
msgbox formular.next
' alle felder der aktiven zeile anzeigen
' aktiv ist die 2. zeile, da wir sie gerade mit next gewaehlt haben
table = formular.getByName("TableControl")
for i = 0 to table.Count-1
row = table.getByIndex(i)
s = s & row.label & ": " & row.string & vbLf
next
msgbox s
end sub
geht deine Frage in diese Richtung?
zap
Hi Christian,
Formulare sind nicht unbeding mein Spezialgebiet, d.h. ich bitte die Anderen meine Fehler zu korrigieren.
Superkurzform: In OOo kann man die Kontrollfelder von Formularen an bestimmte Datenbankfelder binden. Damit dass funktioniert, hat jedes Formular genau eine zugeordnete Datenquelle. Aus dieser Datenquelle ist fuer das Formular genau eine Zeile aktiv.
Als Beispiel habe ich die Bibiography-Datenbank an ein Grid gebunden:
[code]
sub formulare
doc = thiscomponent
' nur ein formular vorhanden, es hat den index 0
formular = doc.drawpage.forms(0)
' aktive zeile abfragen. zaehlung beginnt bei 0
msgbox formular.getrow()
' naechste zeile auswaehlen. solange es weitere zeilen
' gibt, gibt next true zurueck.
msgbox formular.next
' alle felder der aktiven zeile anzeigen
' aktiv ist die 2. zeile, da wir sie gerade mit next gewaehlt haben
table = formular.getByName("TableControl")
for i = 0 to table.Count-1
row = table.getByIndex(i)
s = s & row.label & ": " & row.string & vbLf
next
msgbox s
end sub
[/code]
geht deine Frage in diese Richtung?
zap