Changing DataWindow object by code methods
string error_syntaxfromSQL, error_create
string new_sql, new_syntax
new_sql = 'SELECT emp_data.emp_id, emp_data.emp_name from emp_data' &
+ 'WHERE emp_data.emp_salary> 45000'
new_syntax = SQLCA.SyntaxFromSQL (new_sql, 'Style (Type = Form)', error_syntaxfromSQL)
IF Len (error_syntaxfromSQL)> 0 THEN // Display errors
mle_sfs.Text = error_syntaxfromSQL
ELSE // Generate new DataWindow
dw_new.Create (new_syntax, error_create)
IF Len (error_create)> 0 THEN
mle_create.Text = error_create
END IF
END IF
dw_new.SetTransObject (SQLCA)
dw_new.Retrieve ()
