Foxtable(狐表)用户栏目专家坐堂 → 动态列表排序问题


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

主题:动态列表排序问题

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


加好友 发短信
等级:三尾狐 帖子:648 积分:4728 威望:0 精华:0 注册:2016/4/15 22:24:00
隐藏窗口按钮代码  发帖心情 Post By:2022/4/15 16:06:00 [显示全部帖子]

老师,我想隐藏主窗口2个按钮,这个代码写在哪里?让用户登录后自动隐藏看不见,代码好像也有点问题


Select Case _UserGroup

    Case "用户1","用户2"

        Forms("主窗口").controls("Button4").Visible = True 

    Case "用户3", "用户4"

        Forms("主窗口").controls("Button3").Visible = True    

End Select


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


加好友 发短信
等级:三尾狐 帖子:648 积分:4728 威望:0 精华:0 注册:2016/4/15 22:24:00
未解决  发帖心情 Post By:2022/4/15 16:57:00 [显示全部帖子]

我以分组为用户单位,1个单位有几个员工;我是限制单位即限制分组,我将代码在窗口的AfterLoad事件,代码如下:

Select Case _UserGroup

    Case "用户1","用户2"

        e.Form.controls("Button4").Visible = False

    Case "用户3", "用户4"

        e.Form.controls("Button3").Visible = False   

End Select
这样代码没有用。

只写下面一个有效果

If _UserGroup = "用户1" Then
    e.Form.Controls("Button3").Enabled = False
End
If

不知道什么原因

[此贴子已经被作者于2022/4/15 16:57:13编辑过]

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


加好友 发短信
等级:三尾狐 帖子:648 积分:4728 威望:0 精华:0 注册:2016/4/15 22:24:00
无反映  发帖心情 Post By:2022/4/15 17:20:00 [显示全部帖子]

我分别已这些单位登录,显示全部按钮,代码没有作用

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


加好友 发短信
等级:三尾狐 帖子:648 积分:4728 威望:0 精华:0 注册:2016/4/15 22:24:00
基本解决,还有点小问题  发帖心情 Post By:2022/4/15 18:42:00 [显示全部帖子]

在项目事件AfterOpenProject写代码

Select Case _UserGroup

    Case "用户1"

        Forms("主窗口").controls("Button1").Visible = False   ''True      Visible隐藏

     Case "用户2"

        Forms("主窗口").controls("Button1").Visible = False   ''True      Visible隐藏

    Case "用户3"

        Forms("主窗口").controls("Button2").Visible = False   ''True      Visible隐藏

    Case "用户4"

        Forms("主窗口").controls("Button2").Visible = False   ''True      Visible隐藏

End Select

老师这样写基本解决,但是项目打开后,有一点闪动,如何解决


 回到顶部
总数 15 上一页 1 2