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

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

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。