主题：[求助]页面底部状态栏显示统计数据

哦，我想通过表PositionChanged事件实现，简单一些，写入代码：

If e.Table.Current Is Nothing Then

    StatusBar.Message1 = "共" & e.Table.Rows.Count & "行"

Else

    StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"

End If

能够实现，但是筛选显示是会出错

有时候点表中的行才会显示，有时候不需要点击也能显示，有时候点击了显示的行是错误的

筛选TopicBar的TopicLinkClick代码如下：
Select Case e.Link.Text

 Case "全区在职村干部"

        Tables("村干部基本信息").Filter = "[转为退职] = False"

        Tables("村干部基本信息").Sort = "排序"

    Case "退职村干部"

        Tables("村干部基本信息").Filter = "[转为退职] = True"

        Tables("村干部基本信息").Sort = "排序"

    Case "村书记"

        Tables("村干部基本信息").Filter = "[职务排序] In ('00','01') and [转为退职] = 'False'"

        Tables("村干部基本信息").Sort = "排序"

    Case "村主任"

        Tables("村干部基本信息").Filter = "[职务排序] = 02 and [转为退职] = 'False'"

        Tables("村干部基本信息").Sort = "排序"

    Case "村书记兼主任"

        Tables("村干部基本信息").Filter = "[职务排序] = 00 and [转为退职] = 'False'"

        Tables("村干部基本信息").Sort = "排序"

End Select

请老师指导