| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自定义用户中怎样实现可视化授权？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123788) |
| -- 作者：wjhjhj -- 发布时间：2018/8/23 8:47:00 -- 自定义用户中怎样实现可视化授权？ 根据“自动义用户二”设计自定义用户登录系统，又根据“可视化授权”对表、列进行了设置，将下面代码在项目LoadUserSetting事件中： \'可视化授权 For Each t As Table In Tables t.Visible = True t.AllowEdit = True For Each c As Col In t.Cols c.Visible = True c.AllowEdit = True Next Next Tables("授权").Visible = (User.Type <> UserTypeEnum.User ) If User.Type = UserTypeEnum.User Then For Each dr1 As DataRow In DataTables("授权").Select("姓名身份证 = \'" & _UserNameCard & "\'" ) If dr1.IsNull("列名") Then Tables(dr1("表名")).Visible = Not dr1("不可见") Tables(dr1("表名")).AllowEdit = Not dr1("不可编辑") Else Tables(dr1("表名")).Cols(dr1("列名")).Visible = Not dr1("不可见") Tables(dr1("表名")).Cols(dr1("列名")).AllowEdit = Not dr1("不可编辑") End If Next End If 运行后，授权无效，怎么修改，请指教。谢谢！
|
| -- 作者：有点蓝 -- 发布时间：2018/8/23 9:09:00 -- 代码没有问题。授权表有添加授权记录了吗？ |
| -- 作者：wjhjhj -- 发布时间：2018/8/23 9:23:00 -- 有数据 |
| -- 作者：有点蓝 -- 发布时间：2018/8/23 9:59:00 -- 有"姓名身份证 = \'" & _UserNameCard & "\'" 的数据吗 截图看看
|
| -- 作者：wjhjhj -- 发布时间：2018/8/28 8:03:00 -- 谢谢！ |