Foxtable(狐表)用户栏目专家坐堂 → 关于用户删减行权限代码的问题,求大神帮写代码。


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

主题:关于用户删减行权限代码的问题,求大神帮写代码。

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 22:21:00 [显示全部帖子]

 去看 开发指南->权限管理

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/7 23:18:00 [显示全部帖子]

 明显代码写错了,认认真真看。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 9:08:00 [显示全部帖子]

 回复5楼,LOADUSERSETING 事件,帮助文档说得很清楚了。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 14:01:00 [显示全部帖子]

If User.Name = "jialing" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & "嘉陵区" & "'"
Else If User.Name = "shunqing" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & "顺庆区" & "'"
End If
[此贴子已经被作者于2015-1-8 14:01:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 14:02:00 [显示全部帖子]

 最好是给每个用户指定自己的分组啊,在用户创建的时候,然后代码可以这样写

 

    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & User.Group & "'"


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 15:00:00 [显示全部帖子]

 你在添加用户的时候,不是可以设置分组的么

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 15:05:00 [显示全部帖子]

 无语,那你直接抄11楼啊。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 15:08:00 [显示全部帖子]

 看11楼

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/8 15:44:00 [显示全部帖子]

If User.Name = "jialing" Then
    DataTables("表A").LoadFilter = "第1列 = '" & "嘉陵区" & "'"
Else If User.Name = "shunqing" Then
    DataTables("表A").LoadFilter = "第1列 = '" & "顺庆区" & "'"
End If

 回到顶部