主题：有重复日期的流水账如何做？

高效率的流水账设计

本示例可以参考CaseStudy目录下的文件：高效率流水账.Table
上一节介绍的流水账设计方法是比较低效的，下面介绍一种更为高效的设计方法，希望大家仔细体会。

同样假定有个简单的流水帐式的表格，输入收入和支出，能够自动计算出余额:

我们采用和上一节完全不同的方法，不再通过累计出之前的收入和支出，利用二者相减得出余额，而是通过上一行的余额和本行收入和支出，计算出本行的余额，显然这样的计算方式要高效很多。

为此将DataColChanged事件设为:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 提供的例子，现在我有这样一个现金流水账：同一天可能有多笔记录，而且由于补记账导致日期顺序是乱的，想实现的功能是：每次进入表后自动按日期排序，余额按日期顺序不断变化。具体见例子。想实现的结果如图：

 

此主题相关图片如下：捕获.jpg

 

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

点击浏览该文件:管理项目2.table