主题：[讨论]关于流水账问题？？

狐爸做的例子有问题，最后两行计算不准确。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:流水账.table

能不能不用列来判断，而象易表一样用行来计算呢？如果能该怎样写代码
还有能象易表刷新公式样，每列可单独加代码或者有事件就好了

按照日期排序后，你会看到计算结果完全正确的

最后两行计算不准确的原因是下一行的日期只能是等于或是大于上一行的日期

易表中的这个公式在狐表中用代码该如何写：if(row=1,[收入],cell(row-1,col)+[收入]-[支出] ）

 

如果不比较日期，只按照输入顺序，那么更简单：

Select Case e.DataCol.Name
    Case "收入","支出"
        Dim drs As List(of DataRow)
        drs = e.DataTable.Select("[_Identify] <= " & e.DataRow("_identify") ,"[_Identify]")
        For Each dr As DataRow In drs
            Dim Filter As String = "[_Identify] <= " & dr("_Identify")
            Dim Val1 As Double =  e.DataTable.Compute("Sum(收入)",Filter)
            Dim Val2 As Double =  e.DataTable.Compute("Sum(支出)",Filter)
            dr("余额") = Val1 - Val2
        Next
End Select