生成报表代码错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 项目名称,施工合同段,章节,支付编号,细目名称,单位" )

提示很明显了，没有dr这行数据。项目名称条件从哪来？

”项目名称“从哪个表哪一行取值？

Dim ids As String

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

ids = ids & ",'" & dr("项目名称") & dr("施工合同段") & "'"

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 [项目名称]+[施工合同段] in ( '" & ids & "') UNION ALL SELEC T 项目名称,施工合同段,章节,支付编号,细目名称,单位, 0, 0, 申报数量, 申报数量 * 单价 FRO M {中间计量表} where [项目名称]+[施工合同段] in ( '" & ids & "') )as a group by 项目名称,施工合同段,章节,支付编号,细目名称,单位" )

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

主题：生成报表代码错误