*somewhere in (textboxes) init lcProp = sys(2015) .textbox.addproperty(lcProp,.textbox.value) .textbox.controlsource = 'THIS.'+lcPropnow you have a (meaningless) controlsource and it should work.
>************************************************** >*-- Class: test (c:\mmortals\sis\sispat\test.vcx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 12/03/03 12:55:09 PM >* >DEFINE CLASS test AS form > > > Top = 0 > Left = 0 > Height = 157 > Width = 289 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT text1 AS textbox WITH ; > Alignment = 3, ; > Value = ({}), ; > ControlSource = "test.f1", ; > Format = "D", ; > Height = 23, ; > Left = 24, ; > Top = 48, ; > Width = 100, ; > Name = "Text1" > > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 96, ; > Left = 24, ; > Height = 27, ; > Width = 84, ; > Caption = "Set NULL", ; > Name = "Command1" > > > ADD OBJECT text2 AS textbox WITH ; > Alignment = 3, ; > Value = (DATE()), ; > Format = "D", ; > Height = 23, ; > Left = 168, ; > Top = 48, ; > Width = 100, ; > Name = "Text2" > > > ADD OBJECT command2 AS commandbutton WITH ; > Top = 96, ; > Left = 168, ; > Height = 27, ; > Width = 84, ; > Caption = "Set NULL", ; > Name = "Command2" > > > ADD OBJECT label1 AS label WITH ; > AutoSize = .T., ; > Caption = "Bound", ; > Height = 17, ; > Left = 24, ; > Top = 12, ; > Width = 38, ; > Name = "Label1" > > > ADD OBJECT label2 AS label WITH ; > AutoSize = .T., ; > Caption = "NOT bound", ; > Height = 17, ; > Left = 168, ; > Top = 12, ; > Width = 65, ; > Name = "Label2" > > > PROCEDURE Load > CREATE CURSOR test (f1 D NULL) > INSERT INTO test (f1) VALUES (DATE()) > ENDPROC > > > PROCEDURE Unload > USE IN SELECT("test") > ENDPROC > > > PROCEDURE command1.Click > thisform.text1.Value = null > ENDPROC > > > PROCEDURE command2.Click > thisform.text2.Value = null > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: test >************************************************** >