Verständnisfrage zu verschachtelten Formularen
Verfasst: Do, 03.05.2007 14:41
Hi,
ich habe eine Tabelle in einem Subformular und will daraus Werte auslesen.
Mein Weg klappt zwar, scheint mir aber höchst kompliziert und bricht auch sofort zusammen, wenn man etwas an der Struktur des Formulars ändert. Hoffentlich weiß jemand was besseres:
1) thisComponent zuweisen
2) Formular auf der obersten Ebene selektieren
3) daraus das untergeordnete Formular ansprechen
4) darin die Tabelle selektieren
5) daraus die gewünschte Spalte wählen
6) daraus den aktuellen Wert entnehmen
Warum geht nicht:
1) s.o.
2) gleich das Unterformular, besser noch die Tabelle ansprechen
Hier mein Code:
Dim oForm as Object 'darin wird das Formular gespeichert
Dim oSubForm as Object 'für das Subformular
Dim oDoc as Object 'das eigentliche Dokument
Dim oTabelle as Object 'Artikelauswahltabelle
Dim oElement as Object 'Tabellenspaltenwert
Dim nPreis as Double 'Preis aus Tabelle
oDoc=thisComponent
oForm=oDoc.DrawPage.Forms("Bestellnr")
oSubForm=oForm.getByName ("Bestellungen")
oTabelle=oSubForm.getByName("Artikelauswahl")
oElement = oTabelle.getByName("Preis")
nPreis = oElement.GetCurrentValue()
msgbox "Aktueller Preis: " & nPreis
Bin für jeden Tipp dankbar!
Andreas
ich habe eine Tabelle in einem Subformular und will daraus Werte auslesen.
Mein Weg klappt zwar, scheint mir aber höchst kompliziert und bricht auch sofort zusammen, wenn man etwas an der Struktur des Formulars ändert. Hoffentlich weiß jemand was besseres:
1) thisComponent zuweisen
2) Formular auf der obersten Ebene selektieren
3) daraus das untergeordnete Formular ansprechen
4) darin die Tabelle selektieren
5) daraus die gewünschte Spalte wählen
6) daraus den aktuellen Wert entnehmen
Warum geht nicht:
1) s.o.
2) gleich das Unterformular, besser noch die Tabelle ansprechen
Hier mein Code:
Dim oForm as Object 'darin wird das Formular gespeichert
Dim oSubForm as Object 'für das Subformular
Dim oDoc as Object 'das eigentliche Dokument
Dim oTabelle as Object 'Artikelauswahltabelle
Dim oElement as Object 'Tabellenspaltenwert
Dim nPreis as Double 'Preis aus Tabelle
oDoc=thisComponent
oForm=oDoc.DrawPage.Forms("Bestellnr")
oSubForm=oForm.getByName ("Bestellungen")
oTabelle=oSubForm.getByName("Artikelauswahl")
oElement = oTabelle.getByName("Preis")
nPreis = oElement.GetCurrentValue()
msgbox "Aktueller Preis: " & nPreis
Bin für jeden Tipp dankbar!
Andreas