分组汇总如何隐藏某一合计? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim   t As   Table = Tables("主窗口_Table4")
Dim g As   Subtotalgroup
t.SubtotalGroups.Clear()
g = New   Subtotalgroup
g.GroupOn = "姓名" '分组列为姓名列
g.TotalOn = "发放月数" '对发放月数进行统计
t.SubtotalGroups.Add(g)
g = New   Subtotalgroup
g.GroupOn = "单位名称" '分组列为单位名称列

g.Caption = "{0} 合计"
t.SubtotalGroups.Add(g)

Dim r As Row

With t

For i As Integer = .Rows.Count(True) - 1 To 0 Step -1 'Count加上参数True

r = .Rows(i,True) 'Rows也需要加上参数True

If r.IsGroup AndAlso r("单位名称") Like "*合计" Then '如果是分组行

.grid.Rows(i+1).visible = False

End If

End With

主题：分组汇总如何隐藏某一合计?