主题：新手求教想在状态栏里做一行对当前表的分组统计

参考代码

Dim str As String = ""
Dim sum As Double = 0
For Each bm As String In DataTables("表A").GetValues("第一列", Tables("表A").filter)
    Dim count As Double = Tables("表A").compute("count(第一列)")
    str &= bm & ":" & count & ";"
    sum += count
Next
str &= "总共:" & sum
msgbox(str)

既然你用filter过滤，那就写到AfterFilter事件去。

建议你可以在底部放一个停靠窗口，把内容显示到窗口里也可以。