动态创建一个窗口，在窗口上动态建立一个freeform形式的datawindow，如何解决？

[tjtjtj]

我想动态创建一个窗口，在窗口上动态建立一个freeform形式的datawindow，各个字段来自那张表，能不能给出代码

[ouyangibing]

看一下这段代码：（我也是别处看到的）

string ERRORS, sql_syntax

string presentation_str, dwsyntax_str

sql_syntax = "SELECT * FROM 表名"

presentation_str = "style(type=freeform)"

dwsyntax_str = SQLCA.SyntaxFromSQL(sql_syntax,presentation_str, ERRORS)

IF Len(ERRORS) > 0 THEN

MessageBox("Caution", "SyntaxFromSQL caused these errors: " + ERRORS)

RETURN

END IF
dw_1.Create( dwsyntax_str, ERRORS)
dw_1.settransobject(sqlca)
dw_1.retrieve()
IF Len(ERRORS) > 0 THEN

MessageBox("Caution", "Create cause these errors: " + ERRORS)

RETURN

END IF

[amekoxiao]

楼上的可以参考
一般是要用create的
用三种方法
1 调用syntaxfromsql函数
2 调用librayexport函数
3 用户自己创建syntax
具体的希望 楼主自己考虑解决

[debye]

下面的是我写工资系统时用到的动态创建数据窗口的代码（部分）
我的字段是可以让客户设置的，然后从设置表中取出来创建


//
string ERRORS
string sql_syntax
string presentation_str, dwsyntax_str
//选取三个不变的项目,且月份要隐藏
sql_syntax = "select t_yggz.gzid, t_yggz.month, t_yggz.bh,t_ygzl.name,t_ygzl.sslb,t_ygzl.zc,"
//选取应发项目
string ls_cur_xm
declare yfxm_cur cursor for select zdname from t_gzbxm ;
open yfxm_cur;
fetch yfxm_cur into :ls_cur_xm;
do while sqlca.sqlcode=0
if ls_cur_xm <> "yfhj" and mid(ls_cur_xm,1,2)='yf' then
sql_syntax = sql_syntax + "t_yggz." + ls_cur_xm +" ,"
end if
fetch yfxm_cur into :ls_cur_xm;
loop
close yfxm_cur;
//选取应发合计
sql_syntax = sql_syntax + "t_yggz.yfhj,"

//选取扣款项目
declare kkxm_cur cursor for select zdname from t_gzbxm ;
open kkxm_cur;
fetch kkxm_cur into :ls_cur_xm;
do while sqlca.sqlcode=0
if ls_cur_xm <> "kkhj" and mid(ls_cur_xm,1,2)='kk' then
sql_syntax = sql_syntax + "t_yggz." + ls_cur_xm +" ,"
end if
fetch kkxm_cur into :ls_cur_xm;
loop
close kkxm_cur;

//选取扣款合计
sql_syntax = sql_syntax + "t_yggz.kkhj,"

//选取所得税
sql_syntax = sql_syntax + "t_yggz.sds,"

//选取实发工资
sql_syntax = sql_syntax + "t_yggz.sfgz "

//最后连上表名称和条件
sql_syntax = sql_syntax + " from t_yggz,t_ygzl where t_yggz.bh=t_ygzl.bh ORDER BY T_yggz.bh ASC "
//数据窗口的风格
presentation_str = "style(type=grid) column(border=0) text(border=0)"
/* Column ( property=value ... )
Group groupby_colnum1 Fby_colnum2 ... property ... )
Text property=value ... )
*/
//
dwsyntax_str = SQLCA.SyntaxFromSQL(sql_syntax,presentation_str, ERRORS)
dw_1.Create( dwsyntax_str, ERRORS)


//修改数据窗口各列显示标题的标题名,背景色,模式
string ls,ls_temp

dw_1.modify("t_yggz_bh_t.text='员工编号'" )
dw_1.modify("t_yggz_bh_t.background.mode='2'")
dw_1.modify("t_yggz_bh_t.background.color='33348292'")
dw_1.modify("t_yggz_bh_t.border='6'")