Foxtable(狐表)用户栏目专家坐堂 → [求助]如何隐藏单个表


  共有5433人关注过本帖树形打印复制链接

主题:[求助]如何隐藏单个表

帅哥哟,离线,有人找我吗?
dycjj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1292 威望:0 精华:0 注册:2011/8/17 21:12:00
[求助]如何隐藏单个表  发帖心情 Post By:2013/12/2 0:03:00 [只看该作者]

项目中有很多表,但我只想隐藏其中某几个表,怎么弄呢
先谢谢了

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/2 8:37:00 [只看该作者]

tables("表名").visible=false

 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/12/2 19:35:00 [只看该作者]

请问版主,这个代码写在哪个事件里,谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/2 20:00:00 [只看该作者]

 项目属性,afteropenproject事件


 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/12/2 20:37:00 [只看该作者]

请问甜,如何取消隐藏表呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/2 20:38:00 [只看该作者]

 需要取消隐藏的时候就执行下面的代码

Tables("表名").visible = true

 回到顶部
帅哥哟,离线,有人找我吗?
ZHX241806
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/12/2 20:46:00 [只看该作者]

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:393 积分:2498 威望:0 精华:0 注册:2013/4/17 6:41:00
  发帖心情 Post By:2013/12/2 21:05:00 [只看该作者]

那取消多个表的代码又怎么写呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
总数 11 1 2 下一页