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


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

主题：关于用户删减行权限代码的问题，求大神帮写代码。
帅哥哟，离线，有人找我吗？
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后，其他用户均不能删除行。假设其他用户在“区县组”里



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


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


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

谢谢甜老师，改过来了。

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
nclo
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
 回到顶部
帅哥哟，离线，有人找我吗？
nclo
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/8 14:50:00 [显示全部帖子]

甜老师，除开发者以外的用户有9个，9个都是区县局组的，这样用usergroup也可以吗？系统怎么分辨呢？

比如shunqing登陆进去就只加载第一列是“顺庆区”的行。
 回到顶部
帅哥哟，离线，有人找我吗？
nclo
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/8 14:57:00 [显示全部帖子]

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


出现编译错误， 没有可访问的filter接受此参数。错误代码DataTables("表A").LoadFilter =  Filter = "第1列 = '" & .嘉陵区 & "'"

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


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/8 15:02:00 [显示全部帖子]

设置了分组的，开发者放在“开发者”组

“jialing","shunqing "  "gaoping "等放在区县局组，想要实现，开发者登陆后加载所有行，jialing登陆后只加载第一列是”嘉陵区“的行。
 回到顶部
帅哥哟，离线，有人找我吗？
nclo
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/8 15:04:00 [显示全部帖子]

甜老师，前面fliter不了的原因是不是因为按照帮助文件先设置了外部数据表不加载任何数据？

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


加好友 发短信
等级：童狐 帖子：223 积分：1562 威望：0 精华：0 注册：2014/9/17 19:08:00 		  发帖心情 Post By：2015/1/8 15:05:00 [显示全部帖子]

过滤条件：[_Identify] Is Null

 回到顶部
总数 12 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.05469 秒, 5 次数据查询