2017-02-28 35 views
1

我需要一些腳本的幫助。 我有一個帶有列表框和一些文本框的窗體。當我選擇列表框的一個條目時,匹配數據將顯示在該文本框中。現在我想在另一個文本框的幫助下搜索列表框。數據從列表框中形成

我創建了一個腳本,它正在搜索我的listfield並標記匹配的條目。

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 

但我的問題是,項反白標明的,而不是真正的選擇,直到我用鼠標反白標明的條目點擊數據沒有在我的文本框中顯示。有什麼辦法解決這個小問題嗎?

回答

0

您需要更新程序後調用列表框

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

這就將觸發該事件,如果你點擊了它。您可能需要公開After Update子項。

+0

我不知道'Call lstPlanung_AfterUpdate()'是什麼意思。我沒有稱爲lstPlanung的子。 – rel0aded0ne

+0

您必須在列表框上的After_Update事件或填充文本框的命令按鈕中包含一些代碼/宏。但是,您正在填充文本框,這就是您需要調用/運行的內容。 – Minty

+0

對不起,但我沒有得到它。我有一個宏在after_update()'的文本框中顯示列表框中的數據。宏看起來像這樣:='「[SID] =」&「'」&[Screen]。[ActiveControl]&「'」'。 – rel0aded0ne