Article ID: 139155
Article Last Modified on 2/11/2000
*-- Code begins here
IF ;
INLIST(_screen.ActiveForm.ActiveControl.BaseClass,'Textbox','Editbox')
REPLACE (_screen.ActiveForm.ActiveControl.ControlSource) ;
WITH _screen.ActiveForm.ActiveControl.Value
ENDIF
=TABLEUPDATE()
_screen.ActiveForm.Refresh
*-- Code ends here
=TABLEUPDATE() _Screen.ActiveForm.ActiveControl.Refresh
CREATE TABLE temp (myfield C(10))
INSERT INTO temp VALUES ("Hello")
CREATE FORM ztest
DO FORM ztest
Additional query words: VFoxWin
Keywords: KB139155