作者:乔山办公网日期:
返回目录:excel表格制作
做工精致
用saveas()函数zd就行专了。属
integer dwcontrol.SaveAs ( { string filename, saveastype saveastype, boolean colheading } )
在窗抄体上新建一数据窗口,不要指定DATAOBJECT,
再建一个CB按钮,clicked事件中写入百如下代码:运行即可
string us_code=""
string lsdwsyntax,lsdwsyntax2
string lserr
string lssqlstr
string lserrc
long k=1
lssqlstr="select * FROM 表名(视图名)"
//select * FROM 表名(视图名) 你根据你的情况作度修改。
lsdwsyntax = SQLCA.syntaxfromsql(lssqlstr,"style(type=Grid)",lserr)
的报表读取
if len(lserr) > 0 then
messagebox("语句错误信息!",lserr)
end if
dw_1.create(lsdwsyntax,lserrc)
dw_1.settransobject(SQLCA)
dw_1.retrieve()
用saveas()函数
例如,添加一个按钮,按钮的clicked()事件里写上(假设你的数e799bee5baa6e58685e5aeb9336据窗口叫dw_1):
if dw_1.rowcount() = 0 then return //--数据窗口里没有数据就直接返回,不响应操作
dw_1.saveas() //--弹出将数据窗口的数据保存成文件的提示窗口
这样就行了,当数据窗口有内容时,点那个按钮,就出现保存的提示窗口,可以选择保存的位置、文件类型、文件名称。
如果限制用户只能保存为excel,则可以这样:
dw_1.SaveAs("D:\abc.XLS", Excel!, TRUE) //--具体解释见下面
以下为书面引用:
====================================================================
dwcontrol.SaveAs ( { filename, saveastype, colheading } )
★dwcontrol:数据窗口控件名
★filename:可选参数,string类型,其值是用于保存数据窗口内容的文件的文件名。如果省略了filename参数或filename参数的值为空字符串(""),程序运行时,PowerBuilder将显示一个对话框,让用户输入或选择文件名。
★saveastype:可选参数,SaveAsType枚举数据类型,用于指定以何种方式保存数据窗口中的数据。
★colheading:可选参数,boolean类型,指示是否在文件的开头加上数据窗口列的标题。缺省值为TRUE,表示加列标题。该参数指定为FALSE时,表示不加列标题。
★★★ saveastype参数常用的有效取值为:
Clipboard!保存到剪贴板
CSV!以逗号分隔的形式保存数据
DIF! 保存为数据内部交换格式(Data Interchange Format)
Excel!保存为Microsoft Excel格式
HTMLTable!将数据保存为与数据窗口布局相对应的HTML格式
PSReport! 保存为Powersoft Report (PSR)格式
SYLK!保存为Microsoft Multiplan格式
Text! 缺省值,以每行用回车符结束、列之间使用Tab字符分隔的格式保存数据