以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  快捷菜单中解锁  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32983)
--  作者：yifan3429
--  发布时间：2013/5/11 13:07:00
--  快捷菜单中解锁

示例

假定只允许经理级别的用户取消锁定行，可以设置BeforeUnLockDataRow事件代码为：

If User.Group <> "经理" Then
e.Cancel = True
End If

 

 

我想放入快捷菜单中 

 

针对锁定行（设定好了）

 

只有经理级别或是更高的才可以解锁

 

两个条件 

 

解锁当前行

 

第二个解锁整个表

 

否则弹出提示：你没有权利解锁
--  作者：狐狸爸爸
--  发布时间：2013/5/11 13:18:00
--  
那就修改菜单的代码啊：
 
if User.Group = "经理" Then
    \'原来解锁的代码
Else
   MessageBox.show("没有权利解锁")
Endif