| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]设置一个锁定按钮，按下锁定组合框内容，在锁定的时候值会改变 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124624) |
| -- 作者：紫色幽魂 -- 发布时间：2018/9/10 22:28:00 -- [求助]设置一个锁定按钮，按下锁定组合框内容，在锁定的时候值会改变 设置一个锁定按钮，需要按下按钮锁定组合框内容，在锁定的时候值会改变，这个应该怎么改 Dim dw As WinForm.ComboBox = e.Form.Controls("工厂检测计量单位") Dim sd As WinForm.CheckBox = e.Form.Controls("锁定_工厂单位") If sd.Checked = True dw.ReadOnly = BooleanEnum.True Else dw.ReadOnly = BooleanEnum.False End If
|
| -- 作者：有点蓝 -- 发布时间：2018/9/10 22:43:00 -- 测试没有问题，肯定是有其他代码影响到了 |
| -- 作者：紫色幽魂 -- 发布时间：2018/9/11 8:58:00 -- 回复：（有点蓝）测试没有问题，肯定是有其他代码影响... 我发现把这段代码去掉就没问题了，就是数值需要自己输入才行，应该怎么改 Dim gcdw As WinForm.ComboBox = e.Form.Controls("工厂检测计量单位") If e.Form.Controls("检测方法_UT").Checked = True gcdw.ComboList = "米|个|块" gcdw.Value = "米" ElseIf e.Form.Controls("检测方法_RT").Checked = True gcdw.ComboList = "张" gcdw.Value = "张" ElseIf e.Form.Controls("检测方法_MT").Checked = True gcdw.ComboList = "米" gcdw.Value = "米" ElseIf e.Form.Controls("检测方法_PT").Checked = True gcdw.ComboList = "米" gcdw.Value = "米" End If
|
| -- 作者：有点甜 -- 发布时间：2018/9/11 9:08:00 -- 你3楼的代码写在什么事件？
你可以在3楼代码那里，判断一下 If gcdm.ReadOnly = BooleanEnum.False Then |
| -- 作者：紫色幽魂 -- 发布时间：2018/9/11 9:53:00 -- 回复：（有点甜）你3楼的代码写在什么事件？ ... 谢谢，已解决 |