主题：统计代码问题

此主题相关图片如下：qq截图20160727133810.png

看一下帮助中的流水账设计

或

If e.DataCol.Name = "核对" Then
    If e.DataRow("核对")= True  Then
        e.DataRow("累计")= e.DataTable.Compute("sum(借方)","核对 = true and _SortKey <= " & e.DataRow("_SortKey"))
    Else
        e.DataRow("累计") = 0
    End If
End If

 

必要的话可以加上RaiseDataColChanged进行重置

以上编码，如果连续选中核对可以。但如果，下面的选中了，上面的发现选错了，取消选中上面的，但下面的累计数值不变。怎么办呢。

If e.DataCol.Name = "核对" Then
    Dim drs As List(of DataRow) = e.DataTable.Select("核对 = true")
    For Each dr As DataRow In drs
        dr("累计")= e.DataTable.Compute("sum(借方)","核对 = true and _SortKey <= " & dr("_SortKey"))
    Next
    If e.DataRow("核对")= False
        e.DataRow("累计") = 0
    End If
End If

谢谢czy老师帮忙。