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

找到匹配后添加**value=xxx**

Exit For

选择第一个条目列表框

1 个答案: