以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  插件不允许编辑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185239)

--  作者:hopestarxia
--  发布时间:2023/2/12 20:59:00
--  插件不允许编辑
老师,我想根据插件ComboBox1 的值判断插件 NumericComboBox1 是否允许编辑,请问代码怎么修改? 
例 值等于A  时,不允许修改,其他值可以编辑;
Dim jsbz As WinForm.ComboBox  = e.Form.Controls("ComboBox1")


If jsbz.text = "A"  Then
e.Form.Controls("NumericComboBox1").Cancel = True
Else
e.Form.Controls("NumericComboBox1").Cancel = False
End If

--  作者:有点蓝
--  发布时间:2023/2/12 21:01:00
--  
参考:http://www.foxtable.com/webhelp/topics/2342.htm

If jsbz.text = "A"  Then
e.Form.Controls("NumericComboBox1").ReadOnly = BooleanEnum.True
Else
e.Form.Controls("NumericComboBox1").ReadOnly = BooleanEnum.False
End If

--  作者:hopestarxia
--  发布时间:2023/2/12 21:07:00
--  
谢谢老师!