以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]多条件求和  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115793)
--  作者：sysckj
--  发布时间：2018/3/14 16:38:00
--  [原创]多条件求和
乡镇      金额     村名    合计金额              
大山镇     100    大山村     300
大山镇     200    大山村     300
小水镇     200    大山村     400
小水镇     200    大山村     400
需根据乡镇名称一致的情况下，再根据村名一致的更新到合计金额，效果如上
[此贴子已经被作者于2018/3/14 16:39:24编辑过]
--  作者：有点甜
--  发布时间：2018/3/14 16:46:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "金额"
        Dim filter As String = "乡镇 = \'" & e.DataRow("乡镇") & "\' and 村名 = \'" & e.DataRow("村名") & "\'"
        Dim sum1 As Double = e.DataTable.Compute("sum(金额)", filter)
        e.DataTable.ReplaceFor("合计金额",sum1,filter)
End Select