主题：对一个数据表 相同内容字段进行汇总 代码怎么写？

    Dim g As Subtotalgroup
    tb.SubtotalGroups.Clear()
    tb.GroupAboveData = False
    tb.TreeVisible = False
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "*"
    g.TotalOn = "数量,金额"
    g.Caption = "总计"
    tb.SubtotalGroups.Add(g)
    tb.Subtotal()

tb是针对的当前表