以文本方式查看主题

-  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=3594)
--  作者：狐狸爸爸
--  发布时间：2009/7/16 12:59:00
--  隐藏汇总模式无关列的代码
Dim Lst As New List(of String)
For each g As SubtotalGroup In CurrentTable.SubtotalGroups
    For Each s As string In g.Totalon.Split(",")
        If lst.Contains(s) = False Then
            lst.Add(s)
        End If
    next
    If lst.Contains(g.Groupon) = False Then
        lst.Add(g.GroupOn)
    End If
Next
For Each c As Col In CurrentTable.Cols
    c.Visible = lst.Contains(c.Name)
Next

喜欢的话，可以做成一个自定义函数，随时调用。
--  作者：mr725
--  发布时间：2009/7/16 13:07:00
--  
先收下～ 
--  作者：知无
--  发布时间：2009/7/16 13:09:00
--  
喜欢，做成函数，随时调用。
--  作者：reachtone
--  发布时间：2009/7/16 14:23:00
--  

哈哈，这个好，活学活用了，收获很大。谢谢！

[此贴子已经被作者于2009-7-16 14:24:42编辑过]
--  作者：kylin
--  发布时间：2009/7/16 14:51:00
--  
 精华，呵呵
--  作者：yangming
--  发布时间：2009/7/16 15:05:00
--  
收藏了,呵呵
--  作者：菜鸟foxtable
--  发布时间：2009/7/16 22:59:00
--  
学习