主题：流水帐怎样写代码？是在哪里写？

我想求出余额来，不知怎样处理，请指教！

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

点击浏览该文件:帐本流水x.table

我是在表属性datacolchanged里写的！

Select Case e.DataCol.Name
    Case "收款金额_贷方","付款金额_借方"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
        If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
            e.DataRow("余额") = e.DataRow("收款金额_贷方") - e.DataRow("付款金额_借方")
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("收款金额_贷方") - drs(i)("付款金额_借方")
        Next   
End Select