以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问两种隐藏表方式的区别  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87899)
--  作者：lake163
--  发布时间：2016/7/22 10:39:00
--  请问两种隐藏表方式的区别
在坛子里搜了下，表加载后隐藏（但查询、计算等仍需用到），有下面两种方式
一、

Dim tab = basemainform.controls("mainpages")
tab.tabpages.remove(tab.tabpages("表C"))
tab.tabpages.remove(tab.tabpages("表B"))

这种方式在重复加载事件时，会提示出错 

二、 

Tables("表B").visible=false

Tables("表C").visible=false


我试了下，两者好像都可以，请问有什么区别 ？


[此贴子已经被作者于2016/7/22 11:13:28编辑过]
--  作者：狐狸爸爸
--  发布时间：2016/7/22 12:25:00
--  

就用第二种

[此贴子已经被作者于2016/7/22 12:25:14编辑过]
--  作者：ycwk
--  发布时间：2017/7/15 19:50:00
--  
写在  项目属性->afteropenproject事件中，没有效果啊，写错了地方?

\'非管理员隐藏部分关联表和字典表
\'If User.Type <> UserTypeEnum.Developer Then
If user.Group<>"管理员" Then
    Tables("三甲条款_条款明细表").visible  = False
    Tables("三甲条款_持续改进表").visible  = False
Else
    Tables("三甲条款_条款明细表").visible  = True
    Tables("三甲条款_持续改进表").visible  = True
End If
--  作者：有点甜
--  发布时间：2017/7/16 11:43:00
--  

 

回复3楼。加入 msgbox(user.Group) 看看弹出什么。