- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 请教groupheader 分组统计问题？如何实现？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115506)
-- 发布时间：2018/3/8 11:56:00
-- [求助] 请教groupheader 分组统计问题？如何实现？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报价单（new).xls |
附件中：文件名为“工厂监控系统报价” 是我想最终实现的效果。附件名为：“报价单” 是EXCEL模板。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:工厂监控系统报价_20180203.xls |
-- 发布时间：2018/3/8 12:23:00
--
具体foxtable项目发上来测试。
或者你试试这样引用父表数据 http://www.foxtable.com/webhelp/scr/1394.htm
-- 发布时间：2018/3/8 12:28:00
--
老师您好！这是项目文件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:宽仁erp.zip |
-- 发布时间：2018/3/8 12:59:00
--
没办法，必须额外用代码打印。
1、模板
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:报价单.xls |
2、生成报表代码
Dim Book As New XLS.Book(ProjectPath & "Attachments\\报价单.xls")
Dim fl As String = ProjectPath & "Reports\\报价单.xls"
Dim r As Row = Tables("报价主表").Current
Tables("报价明细").filter = "报价单号 = \'" & r("报价单号") & "\'"
book.marks("项目") = r("项目")
book.marks("报价说明") = r("报价说明")
book.marks("标题") = r("标题")
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2018/3/8 13:43:00
--
代码我在命令窗口测试 是好用的，非常感谢！再问下，这段代码目前应加在哪个事件中？
-- 发布时间：2018/3/8 14:41:00
--
代码我在命令窗口测试 是好用的，非常感谢！再问下，这段代码目前应加在哪个事件中？
你可以放在单独做一个按钮，填入代码，单独生成报表；
你也可以在报表事件，beforeBuild写代码
http://www.foxtable.com/webhelp/scr/1953.htm
Select e.Book.TempLate
Case "报价单"
Dim book = e.book
Dim r As Row = Tables("报价主表").Current
Tables("报价明细").filter = "报价单号 = \'" & r("报价单号") & "\'"
book.marks("项目") = r("项目")
book.marks("报价说明") = r("报价说明")
book.marks("标题") = r("标题")
End Select
-- 发布时间：2018/3/8 17:29:00
--
OK thanks