| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 项目打开起始不加载表后可视化授权问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175039) |
| -- 作者：xnsiwei -- 发布时间：2022/2/17 12:04:00 -- 项目打开起始不加载表后可视化授权问题 1、打开项目时同时加载所有表，可视化授权有效 2、起始不加载表，使用时才加载表，可视化授权表失效 啥原因，有解决办法吗？
[此贴子已经被作者于2022/2/17 12:04:39编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/2/17 13:40:00 -- 可视化授权判断表格是否加载，如果不加载就不要判断权限 |
| -- 作者：xnsiwei -- 发布时间：2022/2/17 19:37:00 -- 后续加载的就不能判断出来是否加载，导致无效吗？ |
| -- 作者：有点蓝 -- 发布时间：2022/2/17 19:54:00 -- 后续加载的，在加载后再查询权限表进行授权 |
| -- 作者：xnsiwei -- 发布时间：2022/2/17 21:43:00 -- 版主，能来段代码吗？ |
| -- 作者：有点蓝 -- 发布时间：2022/2/17 21:50:00 -- datatables.load("表A") dim dr As DataRow = DataTables("授权").find("表名 = \'表A\'" ) if dr isnot nothing then If dr.IsNull("列名") Then Tables("表A").Visible = Not dr("不可见") Tables("表A").AllowEdit = Not dr("不可编辑") Else Tables("表A").Cols(dr("列名")).Visible = Not dr("不可见") Tables("表A").Cols(dr("列名")).AllowEdit = Not dr("不可编辑") End If end if
|
| -- 作者：xnsiwei -- 发布时间：2022/2/17 22:37:00 -- 谢谢 |