Foxtable(狐表)用户栏目专家坐堂 → 字段相同另一字段累积


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

主题:字段相同另一字段累积

帅哥哟,离线,有人找我吗?
sysckj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:125 积分:1545 威望:0 精华:0 注册:2014/6/9 14:21:00
字段相同另一字段累积  发帖心情 Post By:2017/12/10 10:08:00 [只看该作者]

现有学生表,其中有姓名,身份证,班级,金额等字段。
如果身份证相同,金额一致,则该条记录是多余的,如果金额不一致则累积。
姓名      身份证            班级               金额
张三              1                 1                   100
李四              2                 1                   200
王二              3                 1                   200
张三              1                 2                   100
李四              2                 3                   400
王二              3                 5                   300

最终结果为身份证为1的金额是100,身份证为2的金额是600,身份证为3的金额是500



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/10 15:27:00 [只看该作者]

参考代码

 

dim t as table = tables("表B")
For Each sfz As String In t.DataTable.GetValues("第一列")
    Dim sum As Double = 0
    For Each je As String In t.DataTable.GetValues("第三列", "第一列 = '" & sfz & "'")
        sum += val(je)
    Next
    msgbox(sfz & " " & sum)
Next


 回到顶部