Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可视化授权问题


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

主题：可视化授权问题
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1346 积分：8887 威望：0 精华：0 注册：2020/11/4 22:15:00 		可视化授权问题  发帖心情 Post By：2024/8/6 15:04:00 [只看该作者]

If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If


如何将红代码，改为可见，可编辑？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109483 积分：557077 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/8/6 15:40:00 [只看该作者]

Tables(dr("表名")).Visible = r("可见")

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1346 积分：8887 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/8/6 16:25:00 [只看该作者]

For Each dr2 As DataRow In DataTables("窗口1_分配权限表").Select("Name = '" & _UERName & "' And skmc = '" & e.Form.Name & "'")
    e.Form.Controls(dr2("控件名称")).Visible = dr2("可见")'"
    e.Form.Controls(dr2("控件名称")).Enabled = dr2("可编辑")'"
Next

窗口1上有100个控件名称，或说（权限清单100个控件名称）

需求：只有分配可见或可编辑的控件名称为可见或可编辑，没有分配，则默认为不可见或不可编辑，如何实现？上面执行后，未能到效果。
比如：张三分配3个控件名称可见或可编辑，97个没有分配，未在分配权限表里，均为不可见或不可编辑
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

先遍历所有非容器控件，全部都设置为不可见或不可编辑。再按权限表处理

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