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

窗口中有一个SQL查询表，添加了一个分类汇总的按钮（代码见图），点击出来数据如下（见图）：
此主题相关图片如下：qq图片20170308100803.png

参考

 

'首先要生成汇总模式
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

谢谢老师