动态创建数据窗口.docVIP

动态创建数据窗口 　　在实际应用中，经常需要根据用户需求来动态创建数据窗，一般方法是这样的。 　　在一个window中加入一个数据窗控件，如dw_new,但是该数据窗没有data object,(空白的)就可以用以下语法来创建： 　　dw_new.create(ls_syntax,ls_error) // 创建语法，错误信息 　　ls_syntax可以用以下三种方法来形成： 　　一、动态由sql语法创建： 　　// 连接到pb的example数据库 　　string ls_sql,ls_syntax,ls_error 　　ls_syntax = select * from department 　　ls_syntax = sqlca.SyntaxFromSQL(ls_sql,style(type=grid),ls_error) 　　if len(ls_error) 0 then 　　　messagebox(Error,SyntaxFromSQL Error:~r+ls_error) 　　else 　　　dw_new.create(ls_syntax,ls_error) 　　　if len(ls_error) 0 then 　　　　MessageBox(Error, Create have these errors: ~r + ls_error) 　　　else 　　　　dw_new.settransobject(sqlca) 　　　　dw_new.retrieve() 　　　end if 　　end if 　　二、由另一个数据窗的syntax来创建 　　string ls_syntax,ls_error 　　ls_syntax = dw_test.describe(datawindow.syntax) 　　dw_new.create(ls_syntax,ls_error) 　　if ls_error then 　　　messagebox(Create Error,ls_error) 　　else 　　　dw_new.settransobject(sqlca) 　　　dw_new.retrieve() 　　end if 　　三、读取psr文件来创建 　　string ls_syntax,ls_error,ls_ret 　　ls_ret = char(13)+char(10) //回车键 　　int li_fileNum 　　long li_length 　　li_FileNum = FileOpen(efef.psr,Streammode!, read!, shared!, Replace!) 　　if li_filenum 0 then 　　　FileSeek(li_FileNum, 158, FromBeginning!) 　　　li_length = fileRead(li_filenum,ls_syntax) 　　end if 　　fileclose(li_filenum) 　　if li_length = 0 then return 　　ls_syntax = release 5;+ls_ret+ls_syntax 　　//截掉ls_syntax中的数据部分，5.0以sparse(names=dept_name?) 作为参考位置 　　//6.0以html(作为参考位置 　　long pos1,pos2 　　pos1 = pos(ls_syntax,sparse(names=,1) 　　pos2 = pos(ls_syntax,,pos1 +16) 　　ls_syntax = left(ls_syntax,pos1) + mid(ls_syntax,pos1 +1,pos2 - pos1 +1) 　　dw_New.create(ls_syntax,ls_error) 　　if ls_error then 　　　messagebox(Create Error,ls_error) 　　else 　　　dw_new.settransobject(sqlca) 　　　dw_new.retrieve() 　　end if 　　//pb6,pb7的代码可以参照pb5自己写,只是文件头和数据窗结束标记不同而已。 　　PowerBuilder用Create()函数创建动态数据窗口，其语法格式为：dw.Create(Syntax[,ErrString]) 　　其中：dw为需创建的动态数据窗口名；Syntax为创建动态数据窗口的语法字符串；ErrString为可选参数，用来存放发生错误时的错误信息，若忽 略，发生错误时系统自动显示消息框，一般不符我们需要，所以需定义该参数。 　　显然重点在Syntax, PowerBui