以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 帮忙代码简化一下,仅限三个人有权限修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87252) |
-- 作者:zoyong -- 发布时间:2016/7/6 16:23:00 -- 帮忙代码简化一下,仅限三个人有权限修改 If _Username = "A1" OrElse _UserName = "A2" OrElse _UserName = "A3" Then Syscmd.Row.UnLock() e.Form.Controls("撤销").Enabled=True MessageBox.show("你无修改权限!") End If
|
-- 作者:大红袍 -- 发布时间:2016/7/7 0:36:00 -- If _Username = "A1" OrElse _UserName = "A2" OrElse _UserName = "A3" Then Syscmd.Row.UnLock() e.Form.Controls("撤销").Enabled=True Else MessageBox.show("你无修改权限!") End If |