Dim tb5 As WinForm.Table = e.Form.Controls("Table2")
tb5.Table.StopRedraw
tb5.Table.Fill("S----elect [pzzb3], iif([pzzb8] = 0,null,[pzzb8]) as [pzzb8],iif([pzzb9] = 0,null,[pzzb9]) as [pzzb9],[pzzb12],[pzzb11],[pzzb43],[pzzb10] From {dtpzzb} where " & filter & " ORDER BY cint(pzzb3)" ,zgsconn,True)
configtable(tb5.Table.Name,tb5.Table)
tb5.Table.ExtendLastCol = False
Dim t As Table = tb5.Table
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "pzzb3"
g.TotalOn = "pzzb8,pzzb9"
g.Caption = "{0}月 小计"
t.SubtotalGroups.Add(g)
t.Subtotal(True)
加好友 
发短信
Post By：2020/12/12 14:53:00 [只看该作者]
