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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  分组汇总如何隐藏某一合计?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158732)

--  作者：sloyy
--  发布时间：2020/11/30 23:56:00
--  分组汇总如何隐藏某一合计?

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 = "单位名称" \'分组列为单位名称列
t.SubtotalGroups.Add(g)

按姓名和单位名称分组汇总,如何隐藏单位名称合计行?

此主题相关图片如下：搜狗截图20201130234057.png

--  作者：有点蓝
--  发布时间：2020/12/1 8:57:00
--
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
Next
End With

--  作者：sloyy
--  发布时间：2020/12/1 9:33:00
--
太棒了

--  作者：sloyy
--  发布时间：2020/12/1 10:14:00
--

隐藏单位合计列后发现了新问题, 小计列名称都是一样的,能否进一步修改,把单位名称也加在合计列?

此主题相关图片如下：搜狗截图20201201101120.png

--  作者：有点蓝
--  发布时间：2020/12/1 10:28:00
--
http://www.foxtable.com/webhelp/topics/1964.htm