统计同编号金额 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计同编号金额

共有3140人关注过本帖树形打印复制链接主题：统计同编号金额

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

统计同编号金额 发帖心情

Post By：2020/9/18 11:28:00 [显示全部帖子]

此主题相关图片如下：mmexport1600399568248.png

Select e.DataCol.Name

Case "负责人金额","下级"

For Each dr As DataRow In DataTables("表A").DataRows

Dim filter As String = "项目编号= "& dr("项目编号") &" And dr.isnull("上级") = True And dr.isnull("下级") = False "

dr("负责人金额") = DataTables("表A").Compute("Sum(负责人金额)",filter)

End Select

求助实现上图 33 9自动统计更新

[此贴子已经被作者于2020/9/18 11:38:34编辑过]

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）Select e.DataCol.Name ... 发帖心情

Post By：2020/9/18 12:28:00 [显示全部帖子]

坛主，去掉一个条件，下面代码报错，求助

Select e.DataCol.Name

Case "负责人金额","下级"

If e.DataRow.isnull("上级") Then

Dim filter As String = "[项目编号] = '" & e.DataRow("项目编号") & "'"

e.DataRow("负责人金额") = e.DataTable.Compute("Sum(负责人金额)",filter)

End If

End Select

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）报什么错？另外上级这个条件是绝对不... 发帖心情

Post By：2020/9/18 13:45:00 [显示全部帖子]

去掉上级等于下级的条件，四楼代码，项目已停止工作，卡死或计算为空没反应，怎么修改求助。也就是，只需要上级为空，相同编号，两个条件汇总金额即可

[此贴子已经被作者于2020/9/18 14:07:30编辑过]

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）报什么错？ 发帖心情

Post By：2020/9/18 14:11:00 [显示全部帖子]

1楼图片，项目编号，上级为空的负责人金额这行，汇总该项目编号的负责人金额，上级不为空的这个条件。不用上级等于下级，这个条件

Select e.DataCol.Name

Case "负责人金额","下级"

If e.DataRow.isnull("上级") Then

Dim filter As String = "[项目编号] = '" & e.DataRow("项目编号") & "' And e.DataRow.isnull("上级") = False "

e.DataRow("负责人金额") = e.DataTable.Compute("Sum(负责人金额)",filter)

End If

End Select

上面代码报错，求助

[此贴子已经被作者于2020/9/18 14:16:18编辑过]

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）没看懂，如果没有这个条件，也会把自... 发帖心情

Post By：2020/9/18 14:20:00 [显示全部帖子]

就是不要把自己算进去，增加这个条件，好像下面代码可以，帮忙看看是否有漏洞了

Select e.DataCol.Name

Case "负责人金额","下级"

If e.DataRow.isnull("上级") Then

Dim filter As String = "[项目编号] = '" & e.DataRow("项目编号") & "' And [上级] Is not Null"

e.DataRow("负责人金额") = e.DataTable.Compute("Sum(负责人金额)",filter)

End If

End Select

[此贴子已经被作者于2020/9/18 14:23:28编辑过]

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

主题：统计同编号金额