以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]取消代码执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118811)
--  作者：lgj716330
--  发布时间：2018/5/11 14:52:00
--  [求助]取消代码执行

For Each co As Col In Tables("结构分析_Table1").Cols
    If co.name.contains("销售") Then
         Tables("结构分析_Table1").cols(co.name).visible = False ‘隐藏指定列
        Tables("结构分析_Table1").grid.rows(1).height = 0 ‘隐藏标题行
    End If
Next

 

以上是我一个按钮的代码，是对生成的查询表Tables("结构分析_Table1")的二次整理，我想实现按第二次键的时候能够恢复原来的查询结果，要怎么弄呢
--  作者：有点甜
--  发布时间：2018/5/11 15:52:00
--  

For Each co As Col In Tables("结构分析_Table1").Cols
    If co.name.contains("销售") Then       
        If co.visible Then
            co.visible = False
            Tables("结构分析_Table1").grid.rows(1).height = 0 \'隐藏标题行           
        Else           
            co.visible = True
            Tables("结构分析_Table1").grid.rows(1).height = 20 \'隐藏标题行           
        End If
    End If
Next