[讨论]关于流水账问题？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

[此贴子已经被作者于2009-7-30 8:58:19编辑过]

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