主题：流水账设计的详细介绍

我都是这样做流水账的:

Dim s As Double

Select Case e.DataCol.Name

    Case "收入","支出"

        For Each r As DataRow In e.DataTable.dataRows

            r("余额") = r("收入") - r("支出")

            s+ = r("余额")

            r("余额") = s

        Next

End Select

可能计算速度慢一点,但写代码简单.