| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]关于表编辑权限的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70669) |
| -- 作者：我来看看 -- 发布时间：2015/6/26 9:45:00 -- [求助]关于表编辑权限的问题 请问我现在要实现表A只允许经理编辑，其他用户只能查看数据不能编辑？？？？
另外，如何让表A自动按照部门自动排序，现在我输入的时候是按照部门输入的，显示的每个用户也是按照部门显示的，可是更改或者填加后，自动跑到最后一个，和前面的同一部门不连接，请问如何修改？？ |
| -- 作者：大红袍 -- 发布时间：2015/6/26 9:49:00 -- 1、afterOpenproject事件
If User.Group = "经理" Then Tables("表A").AllowEdit = True Else Tables("表A").AllowEdit = False End If |
| -- 作者：大红袍 -- 发布时间：2015/6/26 9:50:00 -- 2、http://www.foxtable.com/help/topics/0451.htm
|
| -- 作者：我来看看 -- 发布时间：2015/6/26 16:44:00 -- 以下是引用大红袍在2015/6/26 9:49:00的发言：
1、afterOpenproject事件
If User.Group = "经理" Then Tables("表A").AllowEdit = True Else Tables("表A").AllowEdit = False End If
老师，按照您的方法在项目属性的afterOpenproject事件加入代码后，还是无论谁都不能编辑，包括经理也不能编辑。我哪里设置错误了？？？？ |
| -- 作者：Bin -- 发布时间：2015/6/26 16:45:00 -- 你多加一句 Messagebox.show(User.Group) \'看看弹出的是什么 If User.Group = "经理" Then Tables("表A").AllowEdit = True Else Tables("表A").AllowEdit = False End If |
| -- 作者：我来看看 -- 发布时间：2015/6/26 16:49:00 -- 弹出一个对话框，就显示的是
经理 |
| -- 作者：大红袍 -- 发布时间：2015/6/26 17:21:00 -- 1、代码改成
If User.Group = "经理" Then DataTables("表A").AllowEdit = True Else DataTables("表A").AllowEdit = False End If
2、代码是不会有问题的，肯定有其它代码影响了，要不你做个例子上来测试。 |