主题：汇总

现在根据产品名称及规格型号汇总结果如下

 
此主题相关图片如下：11.png

想要得到以下效果怎么实现：

根据名称及规格型号汇总，显示在一行。

显示结果：打印纸  A3   小计  
              打印纸   A4  小计 

参考

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

色大师，没法合成产品名称呢？

    Dim t  As  Table =  Tables("入库")
    Dim g As Subtotalgroup
    t.SubtotalGroups.Clear()
    g = New Subtotalgroup  
    g.Aggregate = AggregateEnum.Sum 
    g.GroupOn = "产品名称" 
    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() 

看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