Value einer beliebigen Controlsource programmatisch ändern

10/02/2009 - 20:57 von Winfried Wolf | Report spam
hallo,
jetzt hoffe ich, mich verstàndlich ausdrücken zu können..

Ich hab eine auf TextBox basierende Klasse mit PopupBox. Ich will das
Objekt möglichst einfach anstatt gewöhnlicher Textboxen einsetzen, also
die ControlSource-Eigenschaft verwenden. Darin kann aber wahlweise eine
Variable, ein Object-Property oder eine Tabellen-Spalte stehen (oder
sogar ein Ausdruck, was aber hier keine Rolle spielt).
Wie setze ich jetzt programmatisch den dahinter stehenden Wert?

Gruß,
WiWo
 

Lesen sie die antworten

#1 Matthias Kahlert
10/02/2009 - 21:38 | Warnen spam
Winfried Wolf schrieb:
Ich hab eine auf TextBox basierende Klasse mit PopupBox. Ich will das
Objekt möglichst einfach anstatt gewöhnlicher Textboxen einsetzen, also
die ControlSource-Eigenschaft verwenden. Darin kann aber wahlweise eine
Variable, ein Object-Property oder eine Tabellen-Spalte stehen (oder
sogar ein Ausdruck, was aber hier keine Rolle spielt).
Wie setze ich jetzt programmatisch den dahinter stehenden Wert?



Mal einfach ins Blaue rein, ohne es getestet zu haben:

lcCS = This.ControlSource
IF "." $ lcCS THEN
&& Könnte ein Cursor sein
lc1 = LEFT(lcCS,AT(".",lcCS)-1)
lc2 = SUBSTR(lcCS,LEN(lc1)+2)
IF USED(lc1) THEN
&& Es existiert ein Cursor mit diesem Namen
REPLACE &lc2 WITH <NeuerWert> IN &lc1
ELSE
&& Doch ein Objekt?
&lcCS = <NeuerWert>
ENDIF
ELSE
&lcCS = <NeuerWert>
ENDIF

Matthias Kahlert
[MaxPro] Software
http://www.max-pro.de

Ähnliche fragen