主题：[原创]多条件求和

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