简单的VB组合框问题

[cyuyani]

有两个组合框分别是combo1和combo2在初始化时候combo1中已经有两个项目电视机和冰箱
我想运行时候在combo1中选择一个项目，在combo2中就显示该项目所涵盖的产品
我编写了以下代码在运行的时候总是出错，请大家帮忙看看
Select Case Combo1.ListIndex
Case 0
For i = 0 To Combo2.ListCount - 1
Combo2.RemoveItem i
Next i
Combo2.AddItem "长虹彩电"
Combo2.AddItem "东芝彩电"
Combo2.AddItem "夏普彩电"
Combo2.AddItem "彩虹彩电"
Case 1
For i = 0 To Combo2.ListCount - 1
Combo2.RemoveItem i
Next i
Combo2.AddItem "松下冰箱"
Combo2.AddItem "东芝冰箱"
Combo2.AddItem "夏普冰箱"
Combo2.AddItem "彩虹冰箱"


End Select
程序运行时候当第一次在combo1选中一个项目时候，在combo2中能正确显示出来哪些产品
当第二次在combo1选中项目时，就提示Combo2.RemoveItem i这个语句编译出错

[getemail]

For i = 0 To Combo2.ListCount - 1
Combo2.RemoveItem i
Next i

可以用Combo2.Clear来代替

[king06]

蛋贴。。。

因为你第一次在combo1选中一个项目时候，没有执行for循环里的内容
第二次选中combo1的时候,每执行一次Combo2.RemoveItem i ,Combo2.ListCount就减小了,而i在变大,显然会越界了.

这样:
Select Case Combo1.ListIndex
Case 0
Combo2.clear
Combo2.AddItem "长虹彩电"
Combo2.AddItem "东芝彩电"
Combo2.AddItem "夏普彩电"
Combo2.AddItem "彩虹彩电"
Case 1
Combo2.clear
Combo2.AddItem "松下冰箱"
Combo2.AddItem "东芝冰箱"
Combo2.AddItem "夏普冰箱"
Combo2.AddItem "彩虹冰箱"
End Select