[gelöst] Tab-Controlfeld:Übertragen von Wert. in a. Zelle
Verfasst: Do, 28.10.2010 19:01
Hallo,
ich habe in einem SubFormular ein Grid-Control. Bei der Eingabe eines neuen Datensatzes in das Grid-Control möchte ich in eine Zelle per Makro einen aus dem Hauptformular zusammengesetzten String automatisch eintragen.
Das Ansprechen der Zelle im Grid-Control funktioniert, ich kann auch Werte aus dieser Zelle auslesen. Doch wenn ich mittels oCtrl.Text einen Wert übertragen will, dann passiert nichts.
Das Makro:
ich habe in einem SubFormular ein Grid-Control. Bei der Eingabe eines neuen Datensatzes in das Grid-Control möchte ich in eine Zelle per Makro einen aus dem Hauptformular zusammengesetzten String automatisch eintragen.
Das Ansprechen der Zelle im Grid-Control funktioniert, ich kann auch Werte aus dieser Zelle auslesen. Doch wenn ich mittels oCtrl.Text einen Wert übertragen will, dann passiert nichts.
Das Makro:
Code: Alles auswählen
Sub WertUertragen
Dim oDoc as Object
Dim oDraw as Object
Dim oHptFrm as Object
Dim oSubFrm as Object
Dim oTab as Object
Dim oCtr as Obejct
Dim sText1 as String
Dim sText2 as String
oDoc = ThisComponent
oDraw = oDoc.DrawPage.Forms
oHptFrm = oDraw.getByName("Formular1")
oSubFrm = oHptFrm.getByName("SubForm1")
oTab = oSubFrm.getByName("TabGrid1")
oCtr = oTab,getByName("Control1")
sText1 = "1234"
sText2 = "Test"
oCtrl.Text = sText1 &"-"& sText2
end sub