创建数据有多种方法,比如用SELECT语句创建,这里最简单,还有用自定义字创建数据窗口,这个比较复杂,
下面就这两种方法介绍一下:
1、用SELECT创建数据窗口
string ls_sql = 'select * from mara'
string error_syntaxfromSQL, error_create
string new_syntax
new_syntax = SQLCA.SyntaxFromSQL(ls_sql, 'Style(Type=grid)', error_syntaxfromSQL)
IF Len(error_syntaxfromSQL) > 0 THEN
// Display errors
messagebox('创建失败[1]!!!','错误创建语句:'+error_syntaxfromSQL)
return
ELSE
// Generate new DataWindow
dw_1.Create(new_syntax, error_create)
IF Len(error_create) > 0 THEN
messagebox('创建失败[2]!!!','创建数据窗口出错:'+ error_create)
return
END IF
END IF
string ls_request, ls_report
ls_report = dw_1.Describe("Datawindow.Objects") +"~t"
long Ll_Pos,ll_start
string ls_objstr,ls_obj
string ls_colname[]
long ll_count
Ll_Pos = Pos(Ls_ObjStr, "~t", Ll_Start)
//设置数据窗口更新字段
long Ll_Pos,ll_start =1
string ls_objstr,ls_obj
string ls_colname[]
long ll_count
Ls_ObjStr = DW_1.Describe("Datawindow.Objects") + "~t"
Ll_Pos = Pos(Ls_ObjStr, "~t", Ll_Start)
Do While Ll_Pos > 0
Ls_Obj = Mid(Ls_ObjStr, Ll_Start, Ll_Pos - Ll_Start)
If (DW_1.Describe(Ls_Obj + ".type") = 'column' ) And (DW_1.Describe(Ls_Obj + ".band") = 'detail') And &
(DW_1.Describe(Ls_Obj + ".visible") = "1" ) Then
ll_count ++