以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  限制编辑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87113)
--  作者：114039247
--  发布时间：2016/7/4 1:09:00
--  限制编辑
列名：交接人，
如果“交接人”中的名字<>登录名字
那么窗口控件textbox1控件不允许编辑

这代码要怎么写？？
想了好久，没开窍！！
--  作者：大红袍
--  发布时间：2016/7/4 1:23:00
--  

Enter 事件

 

If Tables("表a").Current("交接人") <> user.Name Then
    e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.True
Else
    e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.False
End If
--  作者：114039247
--  发布时间：2016/7/4 21:23:00
--  
如果控件是 按钮的话呢
--  作者：大红袍
--  发布时间：2016/7/4 21:24:00
--  

 

[此贴子已经被作者于2016/7/4 21:23:50编辑过]
--  作者：大红袍
--  发布时间：2016/7/4 21:25:00
--  

 可以在按钮click事件判断一下

 

If Tables("表a").Current("交接人") <> user.Name Then

    msgbox("你没有权限")

    return

End If