主题：如何从总表中按名称自动生成多表格

订单总表              序号  客户名称   产品  单价   总价  是否付款（是/否），

导出生成的表格  如果想要把总价一栏有个合计怎么样写？

For Each c As String In DataTables("订单").GetValues("客户")
    Tables("订单").Filter = "客户 = '" & c & "' and 付款 = '未付款'"
   
    Dim flg As New SaveExcelFlags
    flg.CellStyle = True
   
    Dim t As Table = Tables("订单")
    Dim g As Subtotalgroup
    t.SubtotalGroups.Clear()
    t.GroupAboveData = False
    t.TreeVisible = False
    t.SpillNode = False
   
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Count
    g.GroupOn = "*"
    g.TotalOn = "金额"
    g.Caption = "总计"
    t.SubtotalGroups.Add(g)
   
    t.Subtotal()
   
    Tables("订单").SaveExcel("C:\data\" & c & "test.xls","未付款",flg)

    Tables("订单").Filter = "客户 = '" & c & "' and 付款 = '已付款'"
    flg =  New SaveExcelFlags
    flg.CellStyle = True
   
    t.SubtotalGroups.Clear()
    t.GroupAboveData = False
    t.TreeVisible = False
    t.SpillNode = False
   
    g = New Subtotalgroup
    g.Aggregate = AggregateEnum.Count
    g.GroupOn = "*"
    g.TotalOn = "金额"
    g.Caption = "总计"
    t.SubtotalGroups.Add(g)
   
    t.Subtotal()
   
    Tables("订单").SaveExcel("C:\data\" & c & "test.xls","已付款",flg)
Next

出现了问题，总计栏里面的是数量的统计，不是金额相加

g.Aggregate = AggregateEnum.Count
是不是这个count不对啊？

g.Aggregate = AggregateEnum.Count

改成

g.Aggregate = AggregateEnum.Sum