- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 使用编码导出如何与统计模式一起导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51859)
-- 发布时间：2014/6/4 16:13:00
-- 使用编码导出如何与统计模式一起导出
导出代码如下：
Dim t As Table=Tables("系统计划_t")
t.fill("select 客户编号,客户名称,币种,round(sum(总金额),2) as 总金额,isnull(sum(已收金额),0) as 已收金额,isnull(sum(已开票金额),0) as 已开票金额 ,round(sum(总金额)-isnull(sum(已收金额),0),2) as 应收金额 from{销售报价单} where 总金额>isnull(已收金额,0) and 审核=1 and 合同=1 group by 客户编号,客户名称,币种","A5 ERP",True)
If T.ROWS.COUNT>0 Then
t.Cols("总金额").grandtotal=True
t.Cols("已开票金额").grandtotal=True
t.Cols("应收金额").grandtotal=True
t.Cols("已收金额").grandtotal=True
t.grandtotal=True
End If
If FileSys.FileExists(ProjectPath & "\\mail\\应收帐款.xls") Then \'如果指定的文件存在
FileSys.DeleteFile(ProjectPath & "\\mail\\应收帐款.xls",2,2) \'则彻底删除之
End If
Dim ex As New Exporter
ex.SourceTableName ="系统计划_t"
ex.FilePath =ProjectPath & "\\mail\\应收帐款.xls"
ex.Format = "Excel"
ex.Export()
现在有个问题 导出的格式并不是合计模式，如何实现系统菜单中的导出功能 即：在系统中做了什么统计导出后格式与其一致？
-- 发布时间：2014/6/4 16:16:00
--
直接用SaveExcel http://www.foxtable.com/help/topics/0559.htm
-- 发布时间：2014/6/4 16:43:00
--
OK 谢谢BIN版
另外一个问题 我想保存为PDF的时候 发现生成的PDF是乱码 已经安装了2007和saveaspaf插件
此主题相关图片如下：qq截图20140604164241.png
-- 发布时间：2014/6/4 16:52:00
--
另外saveExcel也是无法保存合计模式的 已经测试了
-- 发布时间：2014/6/4 16:56:00
--
那就自己编码吧http://www.foxtable.com/help/topics/1148.htm