以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字段相同另一字段累积  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110811)
--  作者：sysckj
--  发布时间：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
--  作者：有点甜
--  发布时间：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