[求助]设置一个锁定按钮，按下锁定组合框内容，在锁定的时候值会改变 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]设置一个锁定按钮，按下锁定组合框内容，在锁定的时候值会改变

共有2965人关注过本帖树形打印复制链接主题：[求助]设置一个锁定按钮，按下锁定组合框内容，在锁定的时候值会改变

紫色幽魂

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00

[求助]设置一个锁定按钮，按下锁定组合框内容，在锁定的时候值会改变 发帖心情

Post By：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

紫色幽魂

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00

回复：（有点蓝）测试没有问题，肯定是有其他代码影响... 发帖心情

Post By：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

紫色幽魂

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：5399 威望：0 精华：0 注册：2015/1/23 0:31:00

回复：（有点甜）你3楼的代码写在什么事件？ ... 发帖心情

Post By：2018/9/11 9:53:00 [显示全部帖子]

谢谢，已解决

下一主题 >> << 上一主题

主题：[求助]设置一个锁定按钮，按下锁定组合框内容，在锁定的时候值会改变