主题：汇总

参考

http://www.foxtable.com/webhelp/scr/1964.htm

看2楼的方法，不会做上传实例。

mark 汇总模式

Dim t  As  Table =  Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
'定义客户分组
g = New Subtotalgroup  '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "规格型号" '分组列为客户
g.TotalOn = "数量,金额"  '对数量和金额进行统计
g.Caption = "{0} 小计"  '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中
g = New Subtotalgroup  '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "产品名称" '分组列为客户
g.TotalOn = "数量,金额"  '对数量和金额进行统计
g.Caption = "{0} 小计"  '设置标题
t.SubtotalGroups.Add(g) '加到分组集合中
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"  '注意总计分组用符号*表示.
g.TotalOn = "数量,金额"  '对数量和金额进行统计
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()  '生成汇总模式

For i As Integer = t.HeaderRows To t.grid.Rows.count-1
    Dim r As Row = t.Rows(i-t.HeaderRows, True)
    If r.IsGroup Then
        If r.Level = 0 Then
            t.grid.Rows(i).height = 0
        ElseIf r.Level = 1
            r("产品名称") = t.Rows(i-t.HeaderRows-1)("产品名称") & " " & r("产品名称")
        End If
    End If
Next