Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：非特定用户，禁止编辑文本框，仅能浏览、复制


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

主题：请教：非特定用户，禁止编辑文本框，仅能浏览、复制
帅哥哟，离线，有人找我吗？
bahamute
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00 		请教：非特定用户，禁止编辑文本框，仅能浏览、复制  发帖心情 Post By：2014/5/19 14:10:00 [只看该作者]

文本控件绑定到列，
想实当审核结果列为true时，非特定用户，禁止编辑文本框，仅能浏览

但文本控件没有e.cancel属性

该如何实现？


从表属性PrepareEdit设置如下代码，从表里测试OK，但从窗口测试失效！

If e.Row("审核状态") = True AndAlso _UserName <> "经理" Then

    e.Cancel = True

End If


请教：

窗口控件该如何实现上述目的
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/5/19 14:13:00 [只看该作者]

在窗口AlterLoad事件中

把文本框设置为只读
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 或者，写文本框的enter事件

 

If Tables("xxx").Current("审核状态") = True AndAlso _UserName <> "经理" Then
    e.sender.readonly = True
Else
    e.sender.readonly = False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/5/19 14:31:00 [只看该作者]

还是没参透，
我想实现如果是非特定人员，开始编辑文本框时，能弹出提醒对话框，避免其输入很多内容后才发现无权编辑。
[此贴子已经被作者于2014-5-19 14:31:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/5/19 14:33:00 [只看该作者]

谢谢4楼，刚刚看见。

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


加好友 发短信
等级：六尾狐 帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/5/19 15:01:00 [只看该作者]

回复四楼：
代码没有效果，
e.sender.readonly = False不起作用
 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/5/19 15:03:00 [只看该作者]

代码如下
If Tables("填报总表").Current("审核状态") = True Then
    e.sender.readonly = False
Else 
    e.sender.readonly = True
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 试试改成

 

e.sender.ReadOnly = BooleanEnum.False
 回到顶部
帅哥哟，离线，有人找我吗？
bahamute
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1425 积分：11332 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2014/5/19 15:08:00 [只看该作者]

这个也不行，代码精灵里弹出来了，刚刚试了。

 回到顶部
总数 15 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 次数据查询