主题：快捷菜单中解锁

示例

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

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

 

 

我想放入快捷菜单中 

 

针对锁定行（设定好了）

 

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

 

两个条件 

 

解锁当前行

 

第二个解锁整个表

 

否则弹出提示：你没有权利解锁

那就修改菜单的代码啊：
 
if User.Group = "经理" Then
    '原来解锁的代码
Else
   MessageBox.show("没有权利解锁")
Endif