列表框與Rowsource多選擇其他列表框在VBA訪問

Question

我有兩個listbox：listbox1和listbox2。 如何獲得該listbox2.rowsource =過濾器 其中過濾器等於從listbox1的多個選擇？

Answer 1

您可以循環訪問listbox1中的選定項目，並將它們連接成一個SQL字符串以提供listbox2上的rowsource。

我看不到您發佈的圖片，但我寫了一個片段（只是「空氣編碼」，可能無法工作），應該給你一個想法。

Private Sub listbox1_AfterUpdate() 

Dim itm as Variant, sql as String 

For Each itm In listbox1.ItemsSelected 
    sql = sql & " OR field1 = '" & listbox1.ItemData(itm) & "'" 
Next 

sql = "SELECT field FROM table WHERE " & Mid(sql, 5) 

listbox2.RowSourceType = "Table/Query" 
listbox2.RowSource = sql 

End Sub 

你也可以試試這個方法：

Dim values as String, itm as variant 

For Each itm In listbox1.ItemsSelected 
    values = values & """" & listbox1.ItemData(itm) & """;" 
Next 

listbox2.RowSourceType = "Value List" 
listbox2.RowSource = values