求教一个关于Combo的问题

xnc_0014 · 发表于 2012-5-14 14:58

本帖最后由 xnc_0014 于 2012-5-14 15:02 编辑

大家好：
请教大家一个问题，请看一下附件的窗体1，其中有一个Check和两个Combo，我的目的是，如果Check=True，则两个Combo均选中默认值（ListIndex=0），如果Check=False，则Combo为空。我使用了代码如下：

Private Sub A_Click()
If A = True Then
Combo2.SetFocus
Combo2.ListIndex = 0
Combo4.SetFocus
Combo4.ListIndex = 0
Else
Combo2.Value = ""
Combo4.Value = ""
End If
End Sub

可是运行时，却跳出如图的错误信息，这是为什么啊？有什么办法实现啊？谢谢。

xnc_0014 · 发表于 2012-5-15 00:41

顶一下，希望得到各位指点

xnc_0014 · 发表于 2012-5-15 09:20

再顶一下，帮帮小弟吧

Renco · 发表于 2012-5-15 09:35

listindex是只读属性，是不能修改的
改成如下方式：
Combo2 = Combo2.Column(0, 0)
Combo4 = Combo4.Column(0, 0)

marco · 发表于 2012-5-15 09:47

Private Sub A_Click()
If A.Value Then

Combo2.Value = Combo2.ItemData(0)
Combo4.Value = Combo4.ItemData(0)
Else
Combo2.Value = ""
Combo4.Value = ""
End If
End Sub

xnc_0014 · 发表于 2012-5-15 09:48

这个命令在Form_Load中可以运行啊？是不是只能在Form_Load中运行初始化，之后就不能赋值了？

marco · 发表于 2012-5-15 10:23

本帖最后由 marco 于 2012-5-15 10:25 编辑

不是说LISTINDEX不能赋值，而是因为点A的修改与Combo2后面的语句有冲突！
如果把你原来的语句写在一个控纽的点击事件里就没有任何问题！

xnc_0014 · 发表于 2012-5-15 11:53

哦，我大致明白了，不过我的根基比较浅，想请教一下，Check_Click事件会导致冲突，而Command_Click事件则不会，两者的区别在哪里啊？究竟是那些语句相互冲突了？谢谢。

marco · 发表于 2012-5-15 12:16

按照系统给出的错误提示就很清楚了，是因为Check_Click事件发生在数据更新前，且阻止该字段的保存数据！

xnc_0014 · 发表于 2012-5-15 22:45

哦，谢谢楼上各位大侠对我的帮助，虽然还是一知半解，但又学习了一些知识，谢谢。

		自动登录	找回密码
密码			免费注册

[求助] 求教一个关于Combo的问题