从列表框到表单的数据

Question

我需要一些脚本帮助。 我有一个带有列表框和一些文本框的表单。当我选择列表框的条目时，匹配的数据将显示在该文本框中。现在我想在另一个文本字段的帮助下搜索列表框。

我创建了一个搜索列表字段的脚本，并标记匹配的条目。

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

             If Me!lstPlanung.Column(0, i) Like "*" & Me!sidSuche2.Text & "*" Then

                 Me!lstPlanung.Selected(i) = True
                 Exit For

             End If

         Next i

但我的问题是该条目是高位的并没有真正选择，并且数据不会显示在我的文本框中，直到我用鼠标点击高位条目。有什么方法可以解决这个小问题吗？

Answer 1

您需要调用列表框的更新后过程

 Me!lstPlanung.Selected(i) = True
 Call lstPlanung_AfterUpdate()
             Exit For

这将触发事件，就像您点击它一样。您可能需要将After Update子公开。