- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 分类汇总 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74406)
-- 发布时间：2015/9/10 11:13:00
-- 分类汇总
Dim t As Table = Tables("业务进程管理")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "帐套号"
g.TotalOn = "本期利润"
g.TotalOn = "本期收入"
g.TotalOn = "增值税额"
g.TotalOn = "营业税额"
g.TotalOn = "代征附加税额"
g.TotalOn = "企业所得税"
g.TotalOn = "个人所得税"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()
我用这段代码进行分类汇总，现在分类是可以的但是小计和总计行没有数字？？？
-- 发布时间：2015/9/10 11:30:00
--
例子发上来 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2015/9/10 15:29:00
-- 分类汇总的问题
此主题相关图片如下：c0nh}l7w7t19je%yo_})b$3.png
-- 发布时间：2015/9/10 15:31:00
--
Dim t As Table = Tables("业务进程管理")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "帐套号"
g.TotalOn = "本期利润|本期收入|增值税额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()
-- 发布时间：2015/9/10 15:43:00
-- OK,谢谢
谢谢