主题：[求助] 请教groupheader 分组统计问题？如何实现？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报价单（new).xls

附件中：文件名为“工厂监控系统报价” 是我想最终实现的效果。附件名为：“报价单” 是EXCEL模板。

具体foxtable项目发上来测试。

 

或者你试试这样引用父表数据 http://www.foxtable.com/webhelp/scr/1394.htm

 

老师您好！这是项目文件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:宽仁erp.zip

没办法，必须额外用代码打印。

 

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()

代码我在命令窗口测试 是好用的，非常感谢！再问下，这段代码目前应加在哪个事件中？

 

你可以放在单独做一个按钮，填入代码，单独生成报表；

 

你也可以在报表事件，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

OK thanks