以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  控件权限不知是否是BUG  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103699)
--  作者：douglas738888
--  发布时间：2017/7/14 18:08:00
--  控件权限不知是否是BUG

下面代码分别写在控件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编辑过]
--  作者：有点甜
--  发布时间：2017/7/14 18:28:00
--  
我测试没问题。实例发上来
--  作者：douglas738888
--  发布时间：2017/7/15 16:06:00
--  

请老师测试，测试窗口“控件权限设置” ，日期控件，虽然已提示，但依然可修改数据

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:控件测试.zip
--  作者：有点蓝
--  发布时间：2017/7/15 16:21:00
--  
不要弹出提示框\'MessageBox.show

这个会导致控件焦点变化