下面代码分别写在控件CLICK 和 ENTER 里面 控件COMBOBOX 能权限控制正常,
但同样的代码写在控件DateTimePicker 的同样CLICK 和 ENTER里面就不行,虽然提示,但能修改
如果CLICK里面不写IF......的代码,ENTER能实现控件的权限控制
CLICK
If _UserGroupp = "总经理" OrElse _UserGroupp = "副总" Then
Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")
dtp.Value = Date.Now
Else
MessageBox.show("你无操作权限!")
End If
DateTimePicker
If _UserGroupp = "总经理" OrElse _UserGroupp = "副总" Then
e.Sender.ReadOnly = BooleanEnum.False '允许编辑
Else
e.Sender.ReadOnly = BooleanEnum.True '禁止编辑
End If
[此贴子已经被作者于2017/7/14 18:10:18编辑过]