vb中combobox问题 (选择一个combobox的值后如何其它combobox的值也改变?)

Question

如图
想实现选择yingxiong.list下面不同的值 其它COMBOBOX的值也改变
想实现如下
If yingxiong.List = 0 Then
kl1.List = 0
kl2.List = 1
zt1.List = 2
zt2.List = 2
bscz7.List = 18
bscz8.List = 16
bscz4.List = 20
bscz5.List = 20
bscz1.List = 19
bscz2.List = 19
End If
大概就这个意思 不知道我说清楚没有

Answer 1

你说的情况不是很清楚，不过光看你的代码就有几处问题：
1.首选你选择的对应Combobox的事件是错误的，你应该选择Click事件而不是Change事件。从你的代码来看点击了Combobox之后应该是没有反应的。Combobox的Change事件只在通过键盘输入而改变combobox的text属性时才发生，而通过点击Combobox的下拉列表项来改变text属性是不会触发它的Change事件的。所以正确的写法应该是：
Private Sub yingxiong_Click()
2. 后面If yingxiong.List = 0 Then kl1.List = 0 这种用法都是错误的。Combobox的list属性实际上对应的是一个数组，是下拉列表里的所有内容。所以你引用它的某一项时，必须带上它的索引号，即 combo.list(index)，index为下拉列表项的索引号，第一行索引为0，第二行为1，以此类推。不过从你的代码揣测意思，你的代码应该改为(如果你的数字不是指索引号的话）：
If yingxiong.text = 0 Then
kl1.text= 0
kl2.text = 1
zt1.text= 2
zt2.text= 2
bscz7.text = 18
bscz8.text= 16
bscz4.text= 20
bscz5.text= 20
bscz1.text= 19
bscz2.text = 19
End If
（如果数字是索引号则把所有list改为listindex。）