选择第一个条目列表框

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