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


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

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

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


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

 项目属性,afteropenproject事件


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


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

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

Tables("表名").visible = true

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部