主题：求助制表？

有一个收支结余表，张三，李四，王五都可以记数。结余数=收入数-支出数。表已按帮助做好，都可以正常运行。现在有一问题是：最后一行的累计余额是全部行的累计余额。假如查张三的数，收入数，支出数可以合计出来，可余额并不是张三的余额，而是收入数和支出数所在行的余额。如何样才能实现要查张三的数，显示的是张三的收入数、支出数、结余数，要查李四的数，显示的是李四的收入数、支出数、结余数。请专家赐教！

累计结余数=上一行的结余数+本行的收入数-本行的支出数，累计余额也用汇总呀，不能呀。

日期      收入数     支出数     结余数    记账人

1           1000      500        500      张三

1           1500      300        1700    李四

1            500       200        2000     王五

2            2000     1000       3000    张三

2            1000      800        3200    李四

2            1200      1100      3300     王五

查张三：1-2日数显示

1            1000       500       500      张三

2             2000      1000     3000     张三

我是说张三的余额数不对，应该是1500，而不是本行的3000，这个怎么样才能做到同步？

假如要查李四：1-2数显示

1         1500      300       1700     应该显示1200才对不应显示1700就好了

2          1000     800      3200      应该显示1400才对不应显示3200就对了。如何弄才能达到这个效果？

我要的就是结余数根据记账人去算，也就是个人结余这一列怎么写代码？

总结余帮助上有代码，个人结余这一列的代码怎么写我还没看到有，怎么写，请专家赐教！

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

是在这个代码中加吗？加在哪个位置？

Select Case e.DataCol.Name
    Case "收入数","支出数"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") And 记账人 = '" & e.datarow("记账人") & "'", "[_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

是这样写的吗？