Rst.Open 'SELECT DISTINCT trspfx FROM capdq;' Set lstFiltr.DataSource = rst lstFiltr.Refresh - VB
Формулировка задачи:
nichego ne vidayet, moj yest drugoy sposob
spasibo
Решение задачи: «Rst.Open 'SELECT DISTINCT trspfx FROM capdq;' Set lstFiltr.DataSource = rst lstFiltr.Refresh»
textual
Листинг программы
Dim mLong as Long mLONG=LST.ItemData(LST.ListIndex)