Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限失效问题


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

主题：权限失效问题
帅哥哟，离线，有人找我吗？
lgz518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		权限失效问题  发帖心情 Post By：2022/12/6 16:33:00 [只看该作者]

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "权限.第一列", "权限.第二列", "权限.第三列", "权限.第四列", "权限.第五列", "权限.第六列", "权限.第七列"
        If User.Group = "业务员" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "权限.审核", "权限.第批准", "权限.第意见"
        If User.Group = "业务经理" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

看帮助做，结果失效，都可以编辑，是哪里出问题？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/6 16:41:00 [只看该作者]

想做

如果表A“审核”为否
      业务员除了""权限.审核", "权限.第批准", "权限.第意见" 为不可编辑，其他都可以编辑
      业务经理除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑
如果表A“审核”为是
        业务员对已审核的内容不可修改
       业务经理除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑


或角色


如果表A“审核”为否
      角色录入     除了""权限.审核", "权限.第批准", "权限.第意见" 为不可编辑，其他都可以编辑
      角色审批          除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑
如果表A“审核”为是
        角色录入 对已审核的内容不可修改
       角色审批 除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/6 16:54:00 [只看该作者]

Dim r As Row = Tables("权限").current
If r Is Nothing Then Return
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "权限.第一列", "权限.第二列", "权限.第三列", "权限.第四列", "权限.第五列", "权限.第六列", "权限.第七列"
        If User.Group = "业务经理" Then
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        Else
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        End If
    Case "权限.审核", "权限.第批准", "权限.第意见"
        If User.Group = "业务员" AndAlso r("审核") = False Then 
            ctl.ReadOnly = BooleanEnum.False '禁止编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '允许编辑
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2022/12/6 17:07:00 [只看该作者]

老师，还是失效，都可编制，没限制
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:权限问题.zip
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/6 20:02:00 [只看该作者]

窗口没有任何的录入控件，这用法是用来控制文本框、组合框的，不是用来控制表格的。控制表格用这种：http://www.foxtable.com/webhelp/topics/2255.htm

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询