combo box 赋值

[hanne]

combobox cbo1 的list里有 "aa" "bb" "cc", 怎样才能将"cc"社为选中状态？
(不要用cbo.listindex = 2)

[bydisplay]

cbo1.text="cc"

[myhot-河马吃草]

为什么不用cbo.listindex=2

[hanne]

list 的内容是从数据库里取出来填充进去的，不知道index值怎么办?

[footballboy]

Private Sub Command1_Click()
Dim i As Long
Dim idx As Long

For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = "cc" Then
idx = i
Exit For
End If
Next
Combo1.ListIndex = idx
End Sub