以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口中table的不可见权限不好用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132731)

--  作者:18504175995
--  发布时间:2019/3/28 15:49:00
--  窗口中table的不可见权限不好用
老师,我在AfterOpenProject事件中已经设置了分组权限如下
Select Case User.Group
    Case "市场计划管理员","商务","业务负责人","李萍","管理员","经理"
        Tables("报价明细").Visible = True
    Case "操作员","调度","仓管员","财物","重柜业务","外贸操作"
        Tables("报价明细").Visible = False
End Select
图片点击可在新窗口打开查看此主题相关图片如下:1553758240(1).jpg
图片点击可在新窗口打开查看
可是用不可见的分组登录后,在如下界面中依然可见“报表明细”table中的内容,仅仅是内容不能编辑而已,这是为什么?
这是一个基于“产品发运通知单”建立的主窗口,打开项目时,设置的打开主表也是“产品发运通知单”,可是依然在打开时直接显示“报价明细”
麻烦老师帮忙看看,能不能设置某个TabControl的页面不可见?谢谢老师

图片点击可在新窗口打开查看此主题相关图片如下:1553758270(1).jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2019/3/28 16:16:00
--  

1、尝试把代码写到loadUserSetting事件,然后测试;

 

2、隐藏页签,参考 http://www.foxtable.com/webhelp/scr/0835.htm

 


--  作者:18504175995
--  发布时间:2019/3/28 16:45:00
--  
老师我刚才已经按您的要求设置了,也在loadUserSetting中设置了
Select Case User.Group
    Case "市场计划管理员","商务","业务负责人","李萍","管理员","经理"
        Forms("主页").Controls("计划皮窗口").TabPages(1).Visible = True
    Case "操作员","调度","仓管员","财物","重柜业务","外贸操作"
        Forms("主页").Controls("计划皮窗口").TabPages(1).Visible= False
End Select
之行后发现隐藏标了产品发运通知单标签,接着我就改成了TabPages(2)
结果就报错了

图片点击可在新窗口打开查看此主题相关图片如下:1553761689(1).jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1553761705(1).jpg
图片点击可在新窗口打开查看
是什么原因?标签号码写错了?因为已经改了名字叫“报价明细”,所以我也不知道这个标签号码是多少,直接写
TabPages("报价明细"),也同样出错

--  作者:有点甜
--  发布时间:2019/3/28 16:50:00
--  

1、你的窗口【主页】必须打开,才能控制里面的控件。

 

所以这段代码,改成

 

Select Case User.Group
    Case "市场计划管理员","商务","业务负责人","李萍","管理员","经理"
        If Forms("主页").opened Then
            Forms("主页").Controls("计划皮窗口").TabPages(1).Visible = True
        End If
    Case "操作员","调度","仓管员","财物","重柜业务","外贸操作"
        If Forms("主页").opened Then
            Forms("主页").Controls("计划皮窗口").TabPages(1).Visible = False
        End If
End Select

 

同时,你要写到窗口的afterLoad事件去控制。

 

2、看你tabcontrol控件的属性,看对应的名称的属性是什么,对应就写,如

 

            Forms("主页").Controls("计划皮窗口").TabPages("page2").Visible = False


--  作者:18504175995
--  发布时间:2019/3/28 17:02:00
--  
老师,我按您说的改了,两个事件中都写了代码,还是报同样的错,您看看我还有哪里不对

图片点击可在新窗口打开查看此主题相关图片如下:1553763281(1).jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1553763325(1).jpg
图片点击可在新窗口打开查看

--  作者:18504175995
--  发布时间:2019/3/28 17:08:00
--  
哈哈哈哈,老师,我知道了,没有其他原因,只因为TabPages号码写错了,改成TabPages(0)就好了,这回受教了,死死的记住,foxtable所有的序号都是从0开始,噢卖糕的!