Foxtable(狐表)用户栏目专家坐堂 → 关于修改权限问题


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

主题:关于修改权限问题

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
关于修改权限问题  发帖心情 Post By:2019/3/12 15:37:00 [只看该作者]

您好!  我在表格增加了录入员列,当登陆名不是录入员,管理员、开发者 不能编辑行,写入了如下代码但是没效果。

If user.name = e.Row("录入员") OrElse User.Name = "管理员" OrElse User.Name = "开发者" Then
Else
    If user.name = "采购部" Then
        If e.Col.name = "供应商" OrElse e.Col.name = "采购反馈" Then
        Else
            e.cancel = True
        End If
    ElseIf user.name = "库管员" Then
        If e.Col.name = "到货数量" OrElse e.Col.name = "库管员" OrElse e.Col.name = "出库" OrElse e.Col.name = "到货日期" OrElse e.Col.name = "货位" Then
        Else
            e.cancel = True
        End If
    End If
    
End If

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


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

1、你删除代码后,是否可以正常编辑?如果也不能,就不是这段代码的问题。

 

2、请对应做一个实例发上来测试。


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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2019/3/13 8:01:00 [只看该作者]

版主您好!   一开始是代码是这样写的,是可以实现登陆名和录入员不一样时候不能修改该行,管理员和开发者除外。  后来增加了其他用户的权限时候代码修改一下其他用户权限可以实现了,但是录入员和登陆名不一样时对行的禁止修改权限没有了。
     原代码:
If user.name <> e.Row("录入员") Then
    e.cancel = True
End If

If User.Name = "管理员" Then 
            e.cancel =False 
        End If

If User.Name = "开发者" Then 
            e.cancel =False 
        End If
                 
[此贴子已经被作者于2019/3/13 8:02:20编辑过]

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


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

这个意思?

 

If user.name = e.Row("录入员") OrElse User.Name = "管理员" OrElse User.Name = "开发者" Then
ElseIf
    If user.name = "采购部" Then
        If e.Col.name = "供应商" OrElse e.Col.name = "采购反馈" Then
        Else
            e.cancel = True
        End If
    ElseIf user.name = "库管员" Then
        If e.Col.name = "到货数量" OrElse e.Col.name = "库管员" OrElse e.Col.name = "出库" OrElse e.Col.name = "到货日期" OrElse e.Col.name = "货位" Then
        Else
            e.cancel = True
        End If
    Else
        e.cancel = True

    End If
End If


 回到顶部