动态创建数据窗口

//动态创建数据窗口

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