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

高效率的流水账设计

本示例可以参考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

谢谢，可以达到要求。

我有个想法，不知能否实现，首先解决找到第一行：根据日期顺序排序，如果第一行的日期A有两个及以上记录，_SortKey默认是按顺序排序，在相同日期A集合中再用_SortKey作为比较条件找出第一行；第二行以后的行把

drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")中按_SortKey作为比较条件修改为按日期为比较条件

drs = e.DataTable.Select("日期 >= " & dr("日期"), "日期") ，按这种思路如果能写出代码，可以不再需要按钮，在DataColChanged 中也不需要写日期的代码。我尝试写了很多次，一次没有写出来，请大家帮忙。

Select Case e.DataCol.Name
    Case "日期","收入","支出"
        Tables("表A").Sort="日期"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("日期 <= #" & e.DataRow("日期") & "#  And _Identify <> " & e.DataRow("_Identify"), "[_SortKey] Desc ,日期 Desc") '找出上一行
       
        If dr Is Nothing Then '如果没有找到上一行,说明该日期行只有一行,没有相同日期的行,而且本行日期是最小日期,就是第一行
            e.DataRow("余额") = e.DataRow("收入") - e.DataRow("支出")
            dr = e.DataRow
        Else '如果找到,说明<= 日期的 行有一行以上
            drs = e.DataTable.Select("日期 < #" & e.DataRow("日期") & "#") '寻找比该日期更小的日期集合
            If drs.Count=0 Then  '如果集合数为0,说明没有比该日期更小的日期行,那么就只会是相同日期的行有一行以上,如果集合数〉0,那么该行就一定不是日期排序为第一的行
                dr = e.DataTable.Find("日期 = #" & e.DataRow("日期") & "# And [_SortKey] < " & e.DataRow("_SortKey") & " And _Identify <> " & e.DataRow("_Identify"), "[_SortKey] Desc ,日期 Desc") '找出上一行
                If dr Is Nothing Then '如果没有找到上一行,说明该日期行只有一行,没有相同日期的行,而且本行日期是最小日期,就是第一行
                    e.DataRow("余额") = e.DataRow("收入") - e.DataRow("支出")
                    dr = e.DataRow
                End If
            End If
        End If
        drs = e.DataTable.Select("日期 >= #" & dr("日期") & "#", "日期")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
        Next
End Select请大家测试下，这段代码不知是否有问题。

现金日记账中，相同日期存在多行，并且日期顺序混乱，在现实生活中是存在的，帮助中的例子没有提供这方面的代码。

还是有问题，比如增加一行，日期为2012-11-01，收入为1，按日期排序一看，余额错误

生活中，如果某笔记录是前几天发生的，当时漏掉了，现在补起来做，这种情况还是有的

增加一行，日期为2012-11-01，收入为1，按日期排序一看，第二行 2012-11-28日余额应该为2，而不是1，整个小于2012-11-01日的余额都没有发生变化