[求助]请教施工费用合计计算方式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教施工费用合计计算方式

共有171人关注过本帖树形打印复制链接主题：[求助]请教施工费用合计计算方式

明天的灵

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

加好友

发短信

等级：一尾狐帖子：415 积分：5069 威望：0 精华：0 注册：2017/2/7 7:41:00

[求助]请教施工费用合计计算方式 发帖心情

Post By：2025/2/16 23:11:00 [只看该作者]

求验收记录表中各施工单位的费用合计施工。

要求，对于同一施工单位、同一工程（即工程编号一样），只计算一次施工费用。同一工程，只有一家施工单位。

即以下数据，序号4、5是同一工程，对于“单位2”的工程编号为“cdfk-250”只计一次“200000”费用。

拟排除“工程编号”重复值后，再用按施工单位分组统计“施工费”，可否？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:施工费用.table

[此贴子已经被作者于2025/2/16 23:19:08编辑过]

明天的灵

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

加好友

发短信

等级：一尾狐帖子：415 积分：5069 威望：0 精华：0 注册：2017/2/7 7:41:00

Post By：2025/2/16 23:30:00 [只看该作者]

'排除工程编号重复的记录

Tables("验收记录").RepeatFilter("工程编号", 1)

‘再组合统计施工费用，显示结果不符合要求。因以下计算公式是针对DataTables，而不是Tables

Dim g As New GroupTableBuilder("施工费用", DataTables("验收记录"))

g.Groups.AddDef("施工单位")

g.Totals.AddDef("施工费")

g.Build()

MainTable = Tables("施工费用")

y2287958

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

加好友

发短信

等级：狐神帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2025/2/17 11:30:00 [只看该作者]

Dim sql命令 As New SQLCommand

sql命令.CommandText = "s e lect max([_Identify]) as ID from {验收记录} group by 工程编号"

Dim g As New GroupTableBuilder("施工费用", DataTables("验收记录"))

g.Groups.AddDef("施工单位")

g.Totals.AddDef("施工费")

g.Filter = "_Identify in(" & String.Join(",", sql命令.ExecuteReader.datarows.Select(Function(行) CInt(行("ID")))) & ")"

g.Build()

MainTable = Tables("施工费用")

明天的灵

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

加好友

发短信

等级：一尾狐帖子：415 积分：5069 威望：0 精华：0 注册：2017/2/7 7:41:00

Post By：2025/2/17 14:30:00 [只看该作者]

感谢“y2287958” 狐神，结果正确。代码直接照抄了，谢谢。

下一主题 >> << 上一主题

主题：[求助]请教施工费用合计计算方式