VB 中的 Combo1.Additem 出现溢出错误

来源：百度知道 编辑：UC知道 时间：2024/09/22 18:38:58
VB 中的 Combo1.Additem 出现溢出错误

我写的格式是这样的

Combo1.Additem "测试" , 10

出现溢出错误。怎么回事？
我想要的结果是：让这个“测试”添加个索引值，也就是当我选中Combo1.Text的时候，那么他的索引值就 10

直接这样用
Combo1.Additem "测试"

如果你一定要指定位置的话,可以这样

Combo1.AddItem "测试", IIf(Combo1.ListCount < 10, Combo1.ListCount, 10)

'上面的做法是:当不足10项时,添加到最后,有了10之后,插入到第10项的位置
-------------------------------------------------
楼主没有说清楚,呵呵
如果是你这样的话

Private Sub Command1_GotFocus()
If Combo1.ListCount > 10 Then
Combo1.ListIndex = 10
Else
Combo1.ListIndex = Combo1.ListCount - 1
End If
End Sub

兄弟，你的Combo1里边什么都没有，肯定是。也就是连第0条记录都没有，所以就算添加第1条记录也会错误。
我的建议：你干脆把第二个参数省略，这样省心。
也就是Combo1.Additem "测试"

应该这麼写:Combo1.Additem "测试",0
因为最后的那个参数是表示ComboBox的引索的.
就像盖一座楼房一样,没有地基就没有第10层.
如果楼主想添加10条记录,当然要把前面的也添加好才行呀!

Combo中的项目数少于9