主题：分类汇总可否显示汇总项目数

参考

'首先要生成汇总模式
Dim r As Row
Dim idx As Integer = 1
For i As Integer = 0 To Tables("订单").Rows.Count(True) - 1
    r = Tables("订单").Rows(i,True)
    If r.IsGroup
        r("金额") = idx & " " & r("金额")
        idx += 1
    End If
Next