以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何清除一个表中已经存在的汇总?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79199)

--  作者:新福星
--  发布时间:2015/12/26 7:35:00
--  [求助]如何清除一个表中已经存在的汇总?

Dim t As Table = Tables(bm4)
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
\'定义总计分组
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" \'注意总计分组用符号*表示.
......
之前使用上述方法建立了一个汇总。

数据更新了,表数据没有重新fill,而是直接改的表中数据,这时需要做汇总。采用上述方法原有的汇总无法清除掉。怎么解决呢?

--  作者:Hyphen
--  发布时间:2015/12/26 10:03:00
--  

ClearSubtotal

http://www.foxtable.com/help/topics/1372.htm

 

 

 


--  作者:新福星
--  发布时间:2015/12/26 12:03:00
--  

Dim t As Table = Tables(bm4)
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.ClearSubtotal

\'定义总计分组
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" \'注意总计分组用符号*表示.
g.TotalOn = "应收金额,已收金额,待收金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal() \'生成汇总模式
Tables(bm4).AutoSizeCols

t.SubtotalGroups.Clear()
t.ClearSubtotal  用这两个哪个都不好用,无法把原来形成的汇总去掉,形成新的。原有的汇总不清除。




--  作者:Hyphen
--  发布时间:2015/12/26 12:13:00
--  

测试没有问题,上传例子说明