//动态创建数据窗口
string ls_sql
string ls_syn,ls_err
ls_sql = "SELECT rybh,ryxm,ryjb FROM aaa"
ls_syn = SQLCA.SyntaxFromSQL(ls_sql,"style(type=grid)",ls_err)
//生成数据窗口语法
if len(ls_err)>0 then
MessageBox("提示","生成数据窗口语法失败。" + "~r~n" + ls_err)
return
end if
//动态创建数据窗口
dw_1.Create(ls_syn,ls_err)
if len(ls_err)>0 then
MessageBox("提示","创建数据窗口失败。" + "~r~n" + ls_err)
else
dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()
commit;
end if
动态创建数据窗口
最新推荐文章于 2024-09-21 10:25:52 发布