Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表的一列共享


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

主题：表的一列共享
帅哥哟，离线，有人找我吗？
15666282205
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2020/6/2 7:57:00 [只看该作者]

想实现的功能是：表有多个经办人操作，刘永杰有全部权限，登录人等于经办人的时候，可以改动他负责的行的其中一列，比如叫“回复问题”列，其他列不能改动。如果登录人不等于经办人，则不能改动。现在的代码如下，请您完善一下。我水平有限，这样说您能明白吗？
现在的代码：（表的startedit）
If  user.name <> "刘永杰" Then
    MessageBox.Show("对不起,您无权修改!")
    e.Cancel = True
End If
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4628 积分：33772 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2020/6/2 8:26:00 [只看该作者]

不明白

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


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2020/6/2 8:45:00 [只看该作者]

简单一点说，就是登录人只能修改他负责的行的其中一列

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/2 8:47:00 [只看该作者]

"经办人"是一个列名？

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


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2020/6/2 9:09:00 [只看该作者]

“经办人”是列名，准备改动的列叫“问题回复”

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/2 9:43:00 [只看该作者]


If  user.name <> "刘永杰" Then
if user.name = e.row("经办人") andalso e.Col.name = "问题回复" 
else
    MessageBox.Show("对不起,您无权修改!")
    e.Cancel = True
end if
End If
 回到顶部
帅哥哟，离线，有人找我吗？
15666282205
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2020/6/3 16:08:00 [只看该作者]

老师，发现一个问题，如果把“问题回复”的类型设置为备注类型，则不收上述代码控制，可以随便改动，怎么解决？

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/3 16:13:00 [只看该作者]

方法1、关闭列窗口
2、datacolchanging事件

If  user.name <> "刘永杰" Then
if user.name = e.datarow("经办人") andalso e.dataCol.name = "问题回复" 
else
    MessageBox.Show("对不起,您无权修改!")
    e.Cancel = True
end if
End If
 回到顶部
帅哥哟，离线，有人找我吗？
15666282205
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2020/6/3 18:04:00 [只看该作者]

老师，关闭列窗口不合适，还需要打开录入内容

 回到顶部
总数 19 上一页 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.05078 秒, 4 次数据查询