Dim t As Table = Tables("全市分储种余额")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "日期"
g.TotalOn = "Fx_YeSN,Fx_YeSJ,Fx_YeSY,Fx_HqSN,Fx_HqSJ,Fx_HqSY,Fx_DqSN,Fx_DqSJ,Fx_DqSY,Fx_HqZB,Fx_Dq3yZB,Fx_Dq6yZB,Fx_Dq1nZB,Fx_Dq2nZB,Fx_Dq3nZB,Fx_Dq5nZB,Fx_DqZB,存款余额,活期余额,定活两便,个人通知存款,DQ00,Dq3y,Dq3yXY,Dq6y,Dq6yXY,Dq6yDE,Dq6yYLF,Dq1n,Dq1nXY,Dq1nDE,Dq1nYLF,Dq2n,Dq2nXY,Dq2nDE,Dq2nYLF,Dq3n,Dq3nXY,Dq3nDE,Dq3nYLF,Dq5n,Dq5nXY,Dq5nDE"
g.Caption = "{0} 小计"
g.DateGroup = DateGroupEnum.none 'Month
t.SubtotalGroups.Add(g)
t.sort = "日期 DESC,类别,行政代码"
t.Subtotal(True)
加好友 
发短信
Post By：2018/11/20 19:46:00 [显示全部帖子]
此主题相关图片如下：汇总模式最后栏出现两个汇总栏？.jpg
