Foxtable(狐表)用户栏目专家坐堂 → 汇总合计


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

主题:汇总合计

美女呀,离线,留言给我吧!
nuoyan89
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:2844 威望:0 精华:0 注册:2020/10/9 8:45:00
汇总合计  发帖心情 Post By:2022/11/30 22:54:00 [只看该作者]

老师,红色的金额我让让他根据项目,费用明细然后进行汇总,请帮忙看看,谢谢
        Dim w As Table = Forms("支出费用汇总").Controls("设备状态表").Table
        For Each f As Row In Tables("收付款明细_信息查询").GetCheckedRows
            Dim s2 As DataRow = w.DataTable.Find("项目='" & f("项目") & "' and 费用明细='" & f("费用明细") & "'")
            If s2 Is Nothing Then
                s2 = w.DataTable.addnew
                s2("项目") = f("项目")
                s2("费用明细") = f("费用明细")
                s2("操作日期") = Date.Today
                s2("操作人员") = _UserName
            End If
            s2("金额") = f("金额") (根据蓝色部分的条件进行汇总)
        Next
        w.RaiseCurrentChanged

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:2844 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2022/12/1 16:19:00 [只看该作者]

老师,请帮忙看看,谢谢

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


Forms("支出费用汇总").Open()
Dim w As Table = Forms("支出费用汇总").Controls("设备状态表").Table
For Each f As Row In Tables("收付款明细_信息查询").GetCheckedRows
    Dim s2 As DataRow = w.DataTable.Compute("Sum(金额)", "项目='" & f("项目") & "' and 费用明细='" & f("费用明细") & "'")
    If s2 Is Nothing Then
        s2 = w.DataTable.addnew
        s2("项目") = f("项目")
        s2("费用明细") = f("费用明细")
        s2("操作日期") = Date.Today
        s2("操作人员") = _UserName  
    End If
    s2("金额") = val(s2("金额"))
Next
w.RaiseCurrentChanged

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

改错地方了,find不要改

s2("金额") = w.DataTable.Compute("Sum(金额)", "项目='" & f("项目") & "' and 费用明细='" & f("费用明细") & "'")

 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:2844 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2022/12/1 16:48:00 [只看该作者]

老师,我改成了以下这样的可以了,谢谢
        s2("金额") = DataTables("收付款明细_信息查询").Compute("Sum(金额)", "项目='" & f("项目") & "' and 费用明细='" & f("费用明细") & "'")

 回到顶部