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


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

主题：关于用户删减行权限代码的问题，求大神帮写代码。
帅哥哟，离线，有人找我吗？
nclo
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		关于用户删减行权限代码的问题，求大神帮写代码。  发帖心情 Post By：2015/1/7 22:02:00 [只看该作者]

question1:表的第一列有A,B,C,D四个类容。假设用户1登陆进去后，只能看到有A的行，然后新增一行或多行，第一列强制性的带有A，不能编辑第一列的内容。

   假设用户2登陆进去后，只能看到有B的行，然后新增一行或多行，第一列强制性的带有B，不能编辑第一列的内容。

.....


另外假设第10列为逻辑判断列。需要只有管理员能够编辑，一旦管理员设为TURE后，其他用户均不能删除行。假设其他用户在“区县组”里



求教代码该怎么写啊。。小白请教大神！谢谢，版本为开发版。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 

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


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/7 23:07:00 [只看该作者]

Select Case User.Name 
    Case "jialing"
        e.Col.name "第一列"=嘉陵区
End Select


写了代码，报错。。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/7 23:29:00 [只看该作者]

谢谢甜老师，改过来了。

本人确实基础太差，刚才那个弄成功了，请问甜老师，问题1是写在AfterOpenProject还是LOADUSERSETING或者加载外部表事件里？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/1/8 8:10:00 [只看该作者]

前两个事件 何来的 e.col    当然写在加载表事件里

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


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

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

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


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/8 11:07:00 [只看该作者]

甜老师，怎么你回答和BIN不一样。

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/1/8 11:09:00 [只看该作者]

我是根据你3楼的提问回复, 忽略了你真正的问题. 是我搞错了.

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


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/8 12:06:00 [只看该作者]

If User.Name = "开发者" Then
    DataTables("表A").LoadFilter = ""
     DataTables("表B").LoadFilter = ""
Else
If User.Name = "jialing" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .嘉陵区 & "'"End If
If User.Name = "shunqing" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .顺庆区 & "'"End If
If User.Name = "gaoping" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .高坪区 & "'"End If
If User.Name = "langzhong" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .阆中市 & "'"End If
If User.Name = "nanbu" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .南部县 & "'"End If
If User.Name = "xichong" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .西充县 & "'"End If
If User.Name = "yingshan" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .营山县 & "'"End If
If User.Name = "pengan" Then
    DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .蓬安县 & "'"End If
If User.Name = "yilong" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .仪陇县 & "'"End If
If User.Name = "jialing" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .嘉陵区 & "'"End If
If User.Name = "shunqing" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .顺庆区 & "'"End If
If User.Name = "gaoping" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .高坪区 & "'"End If
If User.Name = "langzhong" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .阆中市 & "'"End If
If User.Name = "nanbu" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .南部县 & "'"End If
If User.Name = "xichong" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .西充县 & "'"End If
If User.Name = "yingshan" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .营山县 & "'"End If
If User.Name = "pengan" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .蓬安县 & "'"End If
If User.Name = "yilong" Then
    DataTables("表B").LoadFilter =  Filter = "第1列 = '" & .仪陇县 & "'"End If

DataTables("表A").Load()
DataTables("表B").Load()
 回到顶部
总数 22 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询