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

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

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

点击浏览该文件:帐本流水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

http://www.foxtable.com/help/topics/2136.htm

 

我看过了，但就是不能实现 余额自动累加功能！

请据实例指教！谢谢

你哪有这些列的名称？？？？？？？？？？   "收款金额_贷方"   "付款金额_借方"

真的有些无语的。

楼主，编程是严谨的，有时多个空格，少个空格都不行的，别说列名了。

编程重在理解，而不是硬套，先看帮助，理解了再动手，不理解的就提问。