如果希望在状态栏显示当前位置和总的行数，可以在PositionChanged事件中设置如下代码：　

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

显示效果：

注意事项

如果筛选后，表中没有符合条件的行，或者在汇总模式下，选择分组行，此时表的Current返回Nothing，因为此时并不存在当前行，通过Current来引用数据会出错。
所以在PositionChanged事件中，如果要使用Current属性，一定要判断Current是否为Nothing，再执行相应的代码：

If e.Table.Current Is Nothing Then '如果Current为Nothing
    '没有选定行时执行的代码
Else
    '有选定行时执行的代码
End If