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

Question

我正在构建一个包含以下内容的组合框：

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"

谢谢！！

Answer 1

您可以使用ComboBox 控件的ListIndex 属性来获取/设置所选项目的索引。你可以这样使用它：

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

设置选中项：

cmbNumberOfSeats.ListIndex = nNewSelectedIndex

第一项的索引是0；当没有选择时，ListIndex 返回-1。