标题：汇总问题

Dim bd1 As New SqlGroUPTableBuilder("查询表_table5", "销售资料")
Dim dt1 As fxDataSource
bd1.groups.AddDef("销售商场")'根据型号分组
bd1.groups.AddDef("品牌")'根据型号分组
bd1.Groups.AddDef("销售型号")'根据型号分组
bd1.Groups.AddDef("销售日期", "月")
bd1.Totals.AddDef("数量")
bd1.Totals.AddDef("销售单价")
bd1.Filter = Filter
'bd1.Subtotal = True
'bd1.SubtotalLevel = 1
dt1 = bd1.BuildDataSource()
Tables("查询表_table5").DataSource = dt1 '将统计结果绑定到Table
Dim g As SubtotalGroup '定义一个新的分组
    g = New SubtotalGroup
    g.GroupOn = "销售商场" '分组列为客户
    g.TotalOn = "数量,销售单价" '对数量和金额进行统计
    'g = New SubtotalGroup
    'g.GroupOn = "*" '分组列为客户
    'g.TotalOn = "数量,销售单价" '对数量和金额进行统计
With Tables("查询表_Table5")
     .SubtotalGroups.Clear() '清除原有的分组
     .SubtotalGroups.Add(g) '加入刚刚定义的分组
     .Subtotal() '生成汇总模式
End With

老师给看一下这是哪里的错误，，小计调出来了，总计没有了，，总计出来小计没有了，是哪里的毛病呀