主题：分类汇总

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()

 

我用这段代码进行分类汇总，现在分类是可以的但是小计和总计行没有数字？？？

 

 

 

此主题相关图片如下：c0nh}l7w7t19je%yo_})b$3.png

谢谢