Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限实现不了问题


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

主题：权限实现不了问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/12 21:47:00 [显示全部帖子]

请上传实例说明

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/12 23:07:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统管理-用户-2020-5-29版.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/13 8:34:00 [显示全部帖子]

很明显列名不对。自己导出4楼的项目代码和自己的项目对比一下

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/13 11:40:00 [显示全部帖子]

7楼用法设置的是控件，很明显不存在“单价”这个控件。控件的设置和表格列的设置完全是不停的用法，不要混用

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/13 13:40:00 [显示全部帖子]

Dim t As Table = Tables("入库明细_入库明细")
For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")
    t.Cols(dr("列名")).Visible = Not dr("不可见")
    t.Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/13 17:12:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:系统管理-用户-2020-5-29版.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/13 20:50:00 [显示全部帖子]

我测试没有问题。另外之前已经说过了，控件的控制和表格的控制是不一样的，不能放到一起处理。建议增加一个类型列，注明是控件还是表列。如果对编程稀里糊涂的，个人的建议是分开2个权限表，一个设置表格权限，一个设置窗口控件权限。

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/14 13:47:00 [显示全部帖子]

基础的语法和逻辑基本没有理解

Tables(这里必须是表名称).Visible = Not dr("不可见")

Tables(这里必须是表名称).Cols(这里必须是列名称).Visible = Not dr("不可见")

e.Form.Controls(这里必须是控件名称).Visible = Not dr3("不可见")

Tables指表格，e.Form.Controls指控件
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/14 15:09:00 [显示全部帖子]

Dim t As Table = Tables("入库查询_入库明细")
For Each dr1 As DataRow In DataTables("表权限授权").Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")
msgbox(dr1("列名")) 显示什么内容？
    t.Cols(dr1("列名")).Visible = Not dr1("不可见")
    t.Cols(dr1("列名")).AllowEdit = Not dr1("不可编辑")
Next

For Each dr3 As DataRow In DataTables("授权表").Select("用户名 = '" & _UserName & "' And 窗口按键名称= '" & e.Form.Name & "'")
msgbox(dr3("事件权限")) 显示什么内容？
    e.Form.Controls(dr3("事件权限")).Visible = Not dr3("不可见")
    e.Form.Controls(dr3("事件权限")).Enabled = Not dr3("不可编辑")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/14 16:19:00 [显示全部帖子]

说明权限表没有符合这些条件的数据

.Select("用户名 = '" & _UserName & "' And 表名= '" & e.Form.Name & "'")

.Select("用户名 = '" & _UserName & "' And 窗口按键名称= '" & e.Form.Name & "'")
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 7 次数据查询