主题：报表模板后台统计表达式

Dim Book As New XLS.Book(ProjectPath & "Attachments\中期支付证书.xlsx")
Dim fl As String = ProjectPath & "Reports\中期支付证书.xlsx"

msgbox(DataTables("零号清单").loadfilter)

Dim filter As String = DataTables("零号清单").loadfilter
filter = IIF(filter > ""," where " & filter,"")
msgbox(filter)

book.AddDataTable("中期支付证书","xlgl","select * from (select a.支付编号, a.细目名称, a.图纸数量, a.单价, a.章节, a.桩号, b.* from {零号清单} as a inner join (select 项目名称,施工合同段,sum(图纸数量 * 单价) as 图纸金额 from {零号清单} group by 项目名称,施工合同段) as b on a.项目名称=b.项目名称 and a.施工合同段=b.施工合同段) as c " & filter)
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()