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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成报表代码错误

共有2983人关注过本帖树形打印复制链接主题：生成报表代码错误

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/13 12:09:00 [显示全部帖子]

book.AddDataTable("分项工程中期计量支付表","xlgl","selec t 变更后数量 * 单价 as 变更后金额, 申报数量 * 单价 as 申报金额, 累计申报数量 * 单价 as 累计申报金

额 fro m {中间计量表}")

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/13 18:13:00 [显示全部帖子]

合成条件，如

http://www.foxtable.com/webhelp/scr/2228.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/13 22:53:00 [显示全部帖子]

循环你表格的每一行，取出主键列的值_Identify啊。最后合成的条件，是_Identify的值即可啊。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 12:17:00 [显示全部帖子]

Dim ids As String

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

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

ids= ids.Trim(",")

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

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

book.AddDataTable("分项工程中期计量支付表","xlgl","selec t 章节 as 章节, 支付编号 as 支付编号, 细目名称 as 细目名称, 计量编号 as 计量编号, 桩号 as 桩号, 单位 as 单位, 单价 as 单价, 变更后数量 as 变更后数量, 申报数量 as 申报数量, 累计申报数量 as 累计申报数量, 变更后数量 * 单价 as 变更后金额, 申报数量 * 单价 as 申报金额, 累计申报数量 * 单价 as 累计申报金额 fro m {中间计量表} where _Identify in (" & ids & ")")

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 12:19:00 [显示全部帖子]

或者

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

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

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 13:20:00 [显示全部帖子]

1、你点击计量汇总后，生成的条件是什么？贴出来看看

2、你循环每一行计量汇总，合成多个条件后处理，不行？

Dim filter As String = "1=2"

For Each dr As DataRow In DataTables("计量汇总").DataRows

filter &= " or " & 条件

msgbox(filter)

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 17:05:00 [显示全部帖子]

那就这样合成，如

Dim filter As String = "1=2"

For Each f As DataRow In DataTables("计量汇总").DataRows

filter &= " or " & "项目名称 ='" & f("项目名称") & "' And 施工合同段 ='" & f("施工合同段") & "' And 计量期次 ='" & f("计量期次") & "'"

msgbox(filter)

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/14 17:40:00 [显示全部帖子]

合成的条件是什么？在红色地方，分别填入各个表的条件。

" selec t 项目名称,施工合同段,章节,支付编号,细目名称,单位, sum(数量) as 数量, sum(合同金额) as 合同金额,sum(申报数量) as 申报数量, sum(申报金额) as 申报金额 fro m (SELEC T 项目名称,施工合同段,章节,支付编号,细目名称,单位, 数量, 数量 * 单价 as 合同金额, 0.0 as 申报数量, 0.0 as 申报金额 FRO M {工程量清单} " & 这里合成条件 & " UNION ALL SELEC T 项目名称,施工合同段,章节,支付编号,细目名称,单位, 0, 0, 申报数量, 申报数量 * 单价 FRO M {中间计量表} " & 这里合成条件 & ") as a group by 项目名称,施工合同段,章节,支付编号,细目名称,单位"