主题：[求助]关于累计等的求助

有两个问题请教：

一、经过筛选树筛选后出现的累计数据还是所有行里面的累计值，为什么不是筛选后当前显示各行所重新计算的累计值？

此主题相关图片如下：qq截图20121105213917.png

 

二、窗口里做了两颗树后，如何回到“显示所有行”？代码怎么写、放在哪里？

 

此主题相关图片如下：qq截图20121105214206.png

呵呵 ，不知该如何说得更准确些，意思就是累计的值里包括了本表里的全部数据，为什么它与筛选没关系了，当选择筛选项如“代付款”时应该只统计“代付款”筛选出来的各项数据的累计值才对。请教代码错在哪里？

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("收入_预借款")
            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)("收入_预借款")
        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"), "[_SortKey] Desc") '找出上一行
        If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
            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)("公共支出_金额")
        Next   
End Select

哦，一条一条加呀？有点多哦，几十项呢

就是“类型”列里面的自定义项目，有下面这么多：

工资
办公用品
设备
工具
材料
药剂
氧气乙炔
货车用油
铲车用油
生产车用油
小车用油
通信费
网络
监控
水费
电费
厂租场租
承兑贴息
贷款利息
还款
税款
运费
煤款
手续费
招待
反点
代付款
住宿
路费
过路费
停车费
洗车费
罚款
维修
保养
杂项

呵呵 ，4楼发着另一个表的代码了，不过道理是一样的吧？设置为：

e.DataTable.DataCols("公共支出_类型").RaiseDataColChanged()
e.DataTable.DataCols("公共支出_金额").RaiseDataColChanged()

 

对吗

谢谢你，整对了。