老师,我要的就是图中测试的效果,但以下代码综合起来就无法生成报表,就是显示错误:多次为 'c' 指定了列 '章节'。
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","selec t * fro m (selec t a.支付编号, a.细目名称, a.图纸数量, a.单价, a.章节, a.桩号, b.* fro m {零号清单} as a inner join (selec t 项目名称,施工合同段,章节,sum(图纸数量 * 单价) as 图纸金额,sum(变更后数量 * 单价) as 变更后金额 fro m {零号清单} group by 项目名称,施工合同段,章节) as b on a.项目名称=b.项目名称 and a.施工合同段=b.施工合同段 and a.章节=b.章节) as c " & filter )
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
此主题相关图片如下:1111.png