dw2xls for pb10 数据窗口导出到EXCEL,这个是本人测试过可用的,COPY文件里的DLL及PBD,然后关闭打开的窗口,右击PBT,选属性,然后把这PBD导入就可以用了。
用法:uf_save_dw_as_excel(dw_3,ls_file)
如:string ls_path
string ls_file
integer li_rc
if dw_3.rowcount() > 0 then
li_rc = getfilesavename("选择保存文件",ls_path,ls_file,"xls","电子表格 (*.XLS),*.XLS","d:\",32770)
if li_rc = 1 then
uf_save_dw_as_excel(dw_3,ls_file)
messagebox("提示:","导出成功。。。")
else
messagebox("提示:","导出失败。。。")
end if
end if
1