PB动态创建数据窗体DATAWINDOW

[pb_tjb5012]

f_create_dw(string tb_name,long ypbm,long cfbm,datewindwo dw)
说明：tb_name 数据库表名 dw：数据窗口

string error_syntaxfromsql,error_create
string new_sql,new_syntax
//SQL语句，显示符合条件的记录
new_sql="select hyjg from "+tb_name+" where ypbm="+string(ypbm)+" and cfbm=" +string(cfbm)
//得到数据窗口对象语法
new_syntax=sqlca.syntaxfromsql(new_sql,'style(type=grid)',error_syntaxfromsql)
if len(error_syntaxfromsql)>0 then
messagebox("提示！","错误为 "+error_syntaxfromsql) //提示错误
else
//创建新的数据窗口对象
dw.create(new_syntax,error_create)
if len(error_create)>0 then
//显示出错信息
messagebox("提示！","错误为 "+error_create)
end if
end if