Listbox multiselect: Union select или что попроще есть?

Приветствую всех!

Прошу поделиться своим мнением по поводу слудующего случая:

Имеется таблица A. В ней 2 поля: type и name

Имеется одна форма, в ней 2 Listbox'a

В первом Listbox: Select Distinct A.type

Нужно: Во второй Listbox при событии Listbox1 Afterupdate загрузить A.name, A.type Where A.type = "один из выбранных в первом Listbox" Вся проблема в том, что Listbox'ы Multiselect'овые и единственное что приходит на ум - сделать цикл по выделенным в первом Listbox и во втором сделать Union select... Union select...

Может быть, есть более простое (быстрое и красивое) решение этой задачи?

p.s. В первом Listbox'е может быть до 200 строк.

Заранее благодарю, Антон.

anton_vba2

сделать цикл по выделенным в первом Listbox и во втором сделать Union select... Union select...

union не нужен, в цикле можно собрать коды для выбранных type и подставить их в sql вида

select A.name, A.type Where A.type IN (1,3,5,7)

ну понятно from там

отакота

select A.name, A.type FROM ... Where A.type IN (1,3,5,7)