以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  汇总问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191952)

--  作者:wlj88868
--  发布时间:2024/5/17 20:47:00
--  汇总问题

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

 

 

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


--  作者:有点蓝
--  发布时间:2024/5/18 9:01:00
--  
……
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