主题：生成报表代码错误

我是从”中间计量表“和”工程量清单“表提取数据生成报表，两个表都有对应的”项目名称“、”施工合同段“、”支付编号“三列，我想根据”中间计量表“当前加载的数据（分页加载），来同步提取”工程量清单“表中”项目名称“、”施工合同段“、”支付编号“三列对应的数据生成报表，请问老师，是怎么处理?

Dim ids As String

For Each dr As DataRow In DataTables("中间计量表").DataRows

    ids = ids & "," & dr("_Identify")

Next

ids= ids.Trim(",")

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\分项工程中期支付汇总表.xlsx")

Dim fl As String = ProjectPath & "Reports\分项工程中期支付汇总表.xlsx"

book.AddDataTable("分项工程中期支付汇总表","xlgl"," selec t 项目名称,施工合同段,章节,支付编号,细目名称,单位, sum(数量) as 数量, sum(合同金额) as 合同金额,sum(申报数量) as 申报数量, sum(申报金额) as 申报金额 fro m (SELEC T 项目名称,施工合同段,章节,支付编号,细目名称,单位, 数量, 数量 * 单价 as 合同金额, 0.0 as 申报数量, 0.0 as 申报金额 FRO M {工程量清单}  where [项目名称] = '" & dr("项目名称") & "' And [施工合同段] = '" & dr("施工合同段") & "' UNION ALL SELEC T 项目名称,施工合同段,章节,支付编号,细目名称,单位, 0, 0, 申报数量, 申报数量 * 单价  FRO M {中间计量表} where  [项目名称] = '" & dr("项目名称") & "' And [施工合同段] = '" & dr("施工合同段") & "') as a group by 项目名称,施工合同段,章节,支付编号,细目名称,单位" )

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

老师以下代码有什么问题