汇总问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

……

Tables("查询表_table5").DataSource = dt1 '将统计结果绑定到Table
With Tables("查询表_Table5")
.SubtotalGroups.Clear() '清除原有的分组

Dim g As SubtotalGroup '定义一个新的分组
    g = New SubtotalGroup
    g.GroupOn = "销售商场" '分组列为客户
    g.TotalOn = "数量,销售单价" '对数量和金额进行统计

.SubtotalGroups.Add(g) '加入刚刚定义的分组
g = New SubtotalGroup
g.GroupOn = "*" '分组列为客户
g.TotalOn = "数量,销售单价" '对数量和金额进行统计
.SubtotalGroups.Add(g) '加入刚刚定义的分组
.Subtotal() '生成汇总模式
End With

主题：汇总问题