动态数据窗体如果设置背景颜色,字体大小!
动态数据窗体如果设置背景颜色,字体大小!
string error_syntaxfromSQL, error_create
string new_sql, new_syntax
new_sql = 'SELECT code,name from t_jbxx'
new_syntax = SQLCA.SyntaxFromSQL(new_sql, &
'Style(Type=grid)', error_syntaxfromSQL)
IF Len(error_syntaxfromSQL) > 0 THEN
// Display errors
messagebox(error_syntaxfromSQL,"a")
ELSE
// Generate new DataWindow
dw_index.Create(new_syntax, error_create)
IF Len(error_create) > 0 THEN
messagebox(error_create,"b")
END IF
END IF
dw_index.SetTransObject(SQLCA)
dw_index.Retrieve()