選擇第一個條目列表框

Question

我創建一個數據庫並希望在列表框中輸入第一個記錄後選擇第一個記錄 。

Private Sub domSuche_Change() 

Dim i As Integer 

For i = 0 To Me!lstSuchergebnis.ListCount - 1 

    If Me!lstSuchergebnis.Column(3, i) Like "*" & Me!domSuche.Text & "*" Then 

     Me!lstSuchergebnis.Selected(i) = True 

    End If 

Next i 

End Sub 

它的工作，但它只選擇我的列表字段中的最後一項。

有什麼辦法只選擇我的清單中的第一個條目？

謝謝！

Answer 1

找到匹配

Private Sub domSuche_Change() 
    Dim i As Integer 

    For i = 0 To Me!lstSuchergebnis.ListCount - 1 
     If Me!lstSuchergebnis.Column(3, i) Like "*" & Me!domSuche.Text & "*" Then 
      Me!lstSuchergebnis.Selected(i) = True 
      Exit For 
     End If 
    Next i 
End Sub 

後面加一個 Exit For