老师:小弟我有一个表,sql server的表 想通过代码把它的信息导出到.
老师:我有一个表,sql server的表 想通过代码把它的信息导出到..
老师:我有一个表,sql server的表 想通过代码把它的信息导出到Excel 呢?
表结构: 房号,业主姓名,收费项目,单价,数量,交费否,应交月份
------解决方案--------------------
先建数据窗口，再建按钮，代码如下：
string ls_pathnm
string ls_filenm
int lp,lf
ls_pathnm='E:\aa'
CreateDirectory ( ls_pathnm )
if getfilesavename("文件保存",ls_pathnm,ls_filenm,"xls","excel Files (*.xls),*.xls") = 1 then
if pos(lower(ls_filenm),"xls") > 0 then
if parent.dw_1.saveasascii(ls_pathnm,"~t","","~n") <> 1 then
messagebox("提示:","文件保存失败！")
else
messagebox("提示:","文件保存成功！")
end if
end if
end if
return
老师:我有一个表,sql server的表 想通过代码把它的信息导出到Excel 呢?
表结构: 房号,业主姓名,收费项目,单价,数量,交费否,应交月份
------解决方案--------------------
先建数据窗口，再建按钮，代码如下：
string ls_pathnm
string ls_filenm
int lp,lf
ls_pathnm='E:\aa'
CreateDirectory ( ls_pathnm )
if getfilesavename("文件保存",ls_pathnm,ls_filenm,"xls","excel Files (*.xls),*.xls") = 1 then
if pos(lower(ls_filenm),"xls") > 0 then
if parent.dw_1.saveasascii(ls_pathnm,"~t","","~n") <> 1 then
messagebox("提示:","文件保存失败！")
else
messagebox("提示:","文件保存成功！")
end if
end if
end if
return