Combobox VB6获取在组合框中选择的值

我正在使用以下内容构建一个组合框：

Select 1 or 2 seats:
1
2

我需要根据查询结果将1或2显示为选中状态

我该怎么做

到目前为止，我已经做到了：

SQL = " SELECT numberOfSeats FROM mytable "
SQL = SQL & " WHERE userID ='"
SQL = SQL & txtuserID.Text & "'"
Set auxRes = UAN.OpenResultset(SQL, rdOpenDynamic, rdConcurValues, 0)

cmbNumberOfSeats.Clear
cmbNumberOfSeats.AddItem "Select 1 or 2 seats"
cmbNumberOfSeats.AddItem "1"
cmbNumberOfSeats.AddItem "2"

---

谢谢

您可以使用

组合框

控件的

列表索引

属性来获取/设置所选项目的索引。你这样使用它：

Dim nSelectedIndex As Long

nSelectedIndex = cmbNumberOfSeats.ListIndex

If (nSelectedIndex < 0) Then
    'No selected item in the combo box
Else
    'There's a selected item, handle it
End If

第一项的索引为

0

；当没有选择时，

ListIndex

返回

-1

看到了吗？

cmbNumberOfSeats.ListIndex = nNewSelectedIndex