主题：升级后出现的小计与总计如何取消

软件升级后出现的小计与总计如何取消，

求助！

Dim bd2 As New GroupTableBuilder("统计表1",DataTables("生产计划"))
Dim dt2  As fxDataSource
bd2.FromServer = True  '后台统计
bd2.Groups.AddDef("型号") '根据型号分组
bd2.Groups.AddDef("名称") '根据型号分组
bd2.Groups.AddDef("规格") '根据型号分组
bd2.Groups.AddDef("颜色") '根据型号分组
bd2.Totals.AddDef("数量","数量") '对数量进行统计
'bd2.Totals.AddDef("金额","金额") '对金额进行统计
dt2 = bd2.BuildDataSource()

用上述代码把软件升级为9-26版本后，出现了小计与总计，如何取消

谢谢！

上面的代码不会有小计和总计的，你贴出的代码应该不齐的

我把它全部贴出来，请狐爸帮我看看好吗？谢谢！

 

MainTable = Tables("生产计划")
Forms("生产窗口").OpenTo("生产计划")
Dim bd1 As New GroupTableBuilder("统计表aa",DataTables("订单明细"))
Dim dt1 As fxDataSource
bd1.FromServer = True  '后台统计
bd1.Filter= "审核 = 1"  '统计未发货数量
bd1.Groups.AddDef("型号") '根据型号分组
bd1.Groups.AddDef("名称") '根据型号分组
bd1.Groups.AddDef("规格") '根据型号分组
bd1.Groups.AddDef("颜色") '根据型号分组
bd1.Totals.AddDef("数量","销售_数量") '对数量进行统计
dt1 = bd1.BuildDataSource()

 

Dim bd2 As New GroupTableBuilder("统计表ab",DataTables("生产计划"))
Dim dt2  As fxDataSource
bd2.FromServer = True  '后台统计
bd2.Groups.AddDef("型号") '根据型号分组
bd2.Groups.AddDef("名称") '根据型号分组
bd2.Groups.AddDef("规格") '根据型号分组
bd2.Groups.AddDef("颜色") '根据型号分组
bd2.Totals.AddDef("数量","下单_数量") '对数量进行统计
dt2 = bd2.BuildDataSource()

 

Dim bd3 As New GroupTableBuilder("统计表ac",DataTables("退货"))
Dim dt3 As fxDataSource
bd3.FromServer = True  '后台统计
bd3.Groups.AddDef("型号") '根据型号分组
bd3.Groups.AddDef("名称") '根据型号分组
bd3.Groups.AddDef("规格") '根据型号分组
bd3.Groups.AddDef("颜色") '根据型号分组
bd3.Totals.AddDef("数量","退货_数量") '对数量进行统计
dt3 = bd3.BuildDataSource()

Dim nms As String() = {"型号","名称","规格","颜色"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
Tables("生产窗口_Table1").DataSource = dt1

With DataTables("生产窗口_Table1").DataCols  
    .Add("需求数量",Gettype(Integer), "ISNULL([销售_数量],0) - IsNull([下单_数量],0) - ISNULL([退货_数量],0)")
End With

 

 

这是一个新bug，下次更新会处理好的。

 

目前你可以这样解决，最后面加一行：

 

...

...

Tables("生产窗口_Table1").ClearSubtotal

谢谢狐爸！