以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于流水账余额筛选后余额显示的不是筛选表数据的问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76075)
--  作者：huyang844606
--  发布时间：2015/10/21 11:45:00
--  关于流水账余额筛选后余额显示的不是筛选表数据的问题。

我通过帮助文件流水账代码：

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

以上代码只能统计datatables余额，不能统计筛选后table的余额。请老师指导一下。
--  作者：大红袍
--  发布时间：2015/10/21 11:52:00
--  

Select Case e.DataCol.Name
    Case "收入","支出"
        Dim f As String = iif(Tables("表A").Filter>"", " and (" & Tables("表A").Filter & ")", "")
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey") & f, "[_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") & f, "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
        Next
End Select