主题：全部记录下的统计

请问老师，下面的代码如果表是在筛选状态下，则统计的是筛选结果中的数据。如何做到不管表处于筛选还是全部记录状态下，都按全部记录来统计呢？

 

Select Case e.DataCol.Name
    Case "当前状态"
        Dim pr As DataRow
               If e.OldValue > ""
            pr = DataTables("控辍统计").Find("当前状态 = '" & e.OldValue & "'")
            If pr IsNot Nothing Then
                DataTables("控辍统计").DataCols("当前状态").RaiseDataColChanged(pr)
            End If
        End If
        If e.NewValue > ""
            pr = DataTables("控辍统计").Find("当前状态 = '" & e.NewValue & "'")
            If pr IsNot Nothing Then
                DataTables("控辍统计").DataCols("当前状态").RaiseDataColChanged(pr)
            End If
        End If
    Case "年龄","建档立卡","本在本","本在外","辍学原因"
        Dim pr As DataRow
        pr = DataTables("控辍统计").Find("当前状态 = '" & e.DataRow("当前状态") & "'")
        If pr IsNot Nothing Then
            DataTables("控辍统计").DataCols("当前状态").RaiseDataColChanged(pr)
        End If

这个和筛选没有关系。处理的就是所有已经加载的数据。注意在foxtable里筛选和加载是完全不同的2个概念。

统计这部分太复杂了，我加了两行代码解决不了问题。

还是按照当前加载的数据来统计的。

 

Select Case e.DataCol.Name              '此代码进行统计
        Case "当前状态"
            Dim pr As DataRow
            Dim g As New Cro ssTableBu ilder("控辍统计", DataTables("控辍保学"))
            g.Fr omSer ver = True
            If e.OldValue > ""
                pr = DataTables("控辍统计").Fin d("当前状态 = '" & e.OldValue & "'")
                If pr IsNot Nothing Then
                    DataTables("控辍统计").DataCols("当前状态").RaiseDataColChanged(pr)
                End If
            End If
            If e.NewValue > ""
                pr = DataTables("控辍统计").Fin d("当前状态 = '" & e.NewValue & "'")
                If pr IsNot Nothing Then
                    DataTables("控辍统计").DataCols("当前状态").RaiseDataColChanged(pr)
                End If
            End If
        Case "年龄","建档立卡","本在本","本在外","辍学原因"
            Dim pr As DataRow
            Dim g As New CrossTableBuilder("控辍统计", DataTables("控辍保学"))
            g.Fr omSer ver = True
           
            pr = DataTables("控辍统计").Fin d("当前状态 = '" & e.DataRow("当前状态") & "'")
            If pr IsNot Nothing Then
                DataTables("控辍统计").DataCols("当前状态").RaiseDataColChanged(pr)
            End If
    End Select

find改为sqlfind，compute改为sqlcompute