如何创建一个动态的数据窗口对象

如何创建一个动态的数据窗口对象?
问：我想在程序运行中根据需要动态地建立一个数据窗口对象，该怎么做呢？
答：方法有四：
第一种方法：
在程序中用Describe()函数得到某个已经存在的数据窗口对象的源代码。

如：
string str_dwsyntax,str_lag
//获得数据窗口1的语法
str_dwsyntax=dw_1.object.datawindow.syntax
//根据数据窗口1的语法动态生成数据窗口2的语法
dw_2.create(str_dwsyntax)
//对数据窗口2的内容作局部修改
str_lag="stu_id_t.font.height='-12' stu_id_t.font.face='楷体_GB2312'
"
//字体变12号字体，由宋体改为楷体
dw_2.modify(str_lag)
dw_2.settransobject(sqlca)
dw_2.retrieve()
第二种方法：
在程序中使用系统函数LibraryExport()得到某个已经存在的数据窗口对象的源代码。

第三种方法：
在PowerBuilder开发环境的库管理画笔(Library Painter)中使用移出功能(右键→Export)将某个数据窗口对象的语法保存到文本文件中。

第四种方法：
1、设计窗口时在窗口上设置一个数据窗口控件，该控件用于展示动态创建的数据窗口。

2、构造一条SELECT语句。

3、利用事务对象的对象函数SyntaxFromSQL()生成符合数据窗口对象语法的字符串。

4、使用数据窗口控件的对象函数Create()创建数据窗口。

例子：string str_err_sql,str_err_create,str_sql,str_syntax
str_sql="select emp_id,emp_data,emp_name from employee where emp_salary>750" //生成SELECT语句对应的自由风格的数据窗口语法
str_syntax=SQLCA.SyntaxFromSQL(str_sql,'style(type=Form)',str_err_sql) if len(str_err_sql)>0 then
messagebox("错误","取得SQL语法时出错")
return
else
dw_1.create(str_syntax,str_err_create)
if len(str_err_create)>0 then
messagebox("错误","创建数据窗口时出错！")
return
end if
end if
dw_1.settransobject(sqlca)
dw_1.retrieve()
[注]SyntaxFromSQL()函数
[注]Create()函数。