VB ComboBox µÄ listindex ×Ô¶¯±ä-1µÄÎÊÌâ

Ò»¸öcombobox¿Ø¼þ ÃûΪ cboCompany
Ïà¹Ø´úÂëÈçÏÂ
Private Sub cboLine_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        If KeyAscii <> 8 Then
            KeyAscii = 0
        End If
    End If
End Sub

Private Sub cboCompany_Change()
Dim i As Integer
  cboBus.Clear
  If Len(Trim(cboCompany.Text)) = 3 Then
  For i = 0 To cboCompany.ListCount - 1
      'ÅжÏÊäÈëµÄÊý×Ö ÊÇ·ñ ÓëÁбíÇ°¼¸Î»Êý×ÖÏàµÈ
      If CInt(Trim(cboCompany.Text)) = CInt(Mid(cboCompany.List(i), 1, Len(cboCompany.List(i)) - 2)) Then
        cboCompany.ListIndex = i       
        Exit Sub
      End If
  Next
  End If
End Sub

Private Sub cboCompany_Click()
Dim i As Integer
Dim sqlBus As String
  ''³µÁ¾
If cboCompany.ListIndex > -1 Then
    cboBus.Clear
    sqlBus = "Select bus_id,bus_no from zy_bus_info where company_no = '" & cboCompany.ItemData(cboCompany.ListIndex) & "' Order By cast(bus_no as int)"
    Set rsForDeviceout = GetRSs(sqlBus, 0)