张三可以查的时候，显示的是全部数据还是只显示张三的数据？

 如果显示全部数据，但是最后合计是张三，这样就太不合理了。

 你可以设置汇总模式 http://www.foxtable.com/help/topics/00144.htm

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

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

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就对了。如何弄才能达到这个效果？

 你这个表，本来就是有问题。

 1、要么你的结余数根据记账人去计算；

 2、要么你用两列，【总结余】【个人结余】

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

和总结余的代码一样，只是在后面的条件上加入了 个人的名字

比如 原来的条件是 "xxx = \'abcdefg\'"

就要改成 "xxx = \'abcdefg\' and 记账人 = \'" & e.datarow("记账人") & "\'"

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

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