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


  共有1908人关注过本帖树形打印复制链接

主题:统计同编号金额

帅哥哟,离线,有人找我吗?
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)
        Next
End Select

求助实现上图 33  9自动统计更新
[此贴子已经被作者于2020/9/18 11:38:34编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/18 11:57:00 [只看该作者]

Select e.DataCol.Name
    Case "负责人金额","下级"
if e.datarow.isnull("上级") then
            Dim filter As String = "项目编号= "& e.datarow("项目编号") & " And 上级 = '" & e.datarow("下级") & "' "
e.datarow.isnull("负责人金额") = e.DataTable.Compute("Sum(负责人金额)",filter)
end if
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/18 13:34:00 [只看该作者]

报什么错?

另外上级这个条件是绝对不能去掉的

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/18 14:07:00 [只看该作者]

报什么错?

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/18 14:18:00 [只看该作者]

没看懂,如果没有这个条件,也会把自己计算进去了

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/18 14:36:00 [只看该作者]

测试咯,有问题再说

 回到顶部