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


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

主题：统计同编号金额
帅哥哟，离线，有人找我吗？
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


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：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


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：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


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：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


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：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


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

测试咯，有问题再说

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询