以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何隐藏单个表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43190)
--  作者：dycjj
--  发布时间：2013/12/2 0:03:00
--  [求助]如何隐藏单个表
项目中有很多表，但我只想隐藏其中某几个表，怎么弄呢
先谢谢了
--  作者：Bin
--  发布时间：2013/12/2 8:37:00
--  
tables("表名").visible=false
--  作者：ZHX241806
--  发布时间：2013/12/2 19:35:00
--  

请问版主，这个代码写在哪个事件里，谢谢！
--  作者：有点甜
--  发布时间：2013/12/2 20:00:00
--  
 项目属性，afteropenproject事件
--  作者：ZHX241806
--  发布时间：2013/12/2 20:37:00
--  
请问甜，如何取消隐藏表呢？
--  作者：有点甜
--  发布时间：2013/12/2 20:38:00
--  
 需要取消隐藏的时候就执行下面的代码

Tables("表名").visible = true
--  作者：ZHX241806
--  发布时间：2013/12/2 20:46:00
--  

再请问甜，如果一下子隐藏A、B、C、D等多个表，那代码如何写呢？

 
--  作者：有点甜
--  发布时间：2013/12/2 20:54:00
--  
 如下代码

Dim tbs() As String = {"表A", "表B", "表C"}
For Each tb As String In tbs
    Tables(tb).Visible = False
Next
--  作者：ZHX241806
--  发布时间：2013/12/2 21:05:00
--  
那取消多个表的代码又怎么写呢？
--  作者：有点甜
--  发布时间：2013/12/2 21:08:00
--  
Dim tbs() As String = {"表A", "表B", "表C"}
For Each tb As String In tbs
    Tables(tb).Visible = true
Next