新手问题，关于组合框，急

[无聊客]

当我修改一个组合框的选中值时，我想修改另外一个组合框的选中状态，该如何修改？
比如Combo1如果选了第2个，那么Combo2我也想自动跟着选到第2个上，谢谢！

[faysky2]

Private Sub Form_Load()
Dim i%
For i = 0 To 10
Combo1.AddItem i
Combo2.AddItem i
Next
End Sub

Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub

[无聊客]

按照楼上的好象不行啊，系统提示错误如下：
运行时错误“7777”
您错误的使用了ListIndex属性

好象可以取，但是给它附值不行

[faysky2]

我测试过，没问题的呀，你的Combox2里有没有数据

[rainstormmaster]

同上

另外,如果你也可以考虑用子类实现

[faysky2]

可能是你的Combo1里的记录数与Combo2里的记录数不一样吧，加个判断条件就好了：

Private Sub Combo1_Click()
If Combo2.ListCount > Combo1.ListIndex Then
Combo2.ListIndex = Combo1.ListIndex
Else
Combo2.Text = ""
End If
End Sub

[无聊客]

奇怪了，，都有数据的啊，我是操作ACCESS的数据的，Combo box和表数据是绑定的，会不会和这个有关系？但是两个Combo box确实都有数据，数量也是一样的

[无聊客]

看了下帮助，ListIndex是只读的啊，如果要可写，要把BoundColumn设置为0，，可是我试了还是不行，郁闷