Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как узнать первый выделенный элемент в ListBox при MultiSelect  [new]
-VIPer-
Member

Откуда:
Сообщений: 150
Есть список с двумя столбцами
В 1 номер группы (может повторяться)
Во 2 название товара

Задача:
При выделении любой строки, выделить все строки этой группы

Решено так:
Private Sub Список_AfterUpdate()
Dim a As Integer
Dim Группа As Long
Группа=Me![Список].ItemData(Me![Список].ListIndex)
For a = 0 To Me![Список].ListCount - 1
If Me![Список].ItemData(a) = Группа Then Me![Список].Selected(a) = True
Next a
End Sub

Проблема:
Выделяется та группа на которой Юзер отпустил кнопку мыши
Если Юзер нажал кнопку мыши на группе 1, и не отпуская кнопку мыши потащил курсор вниз, а потом на какой-то другой группе отпустил кнопку мыши, то в событие Список_AfterUpdate будет использована запись на которой Юзер отпустил кнопку, а надо чтобы была использована запись на которой Юзер нажал кнопку мыши...

Кто подскажет? Спасибо!
23 мар 07, 14:14    [3933838]     Ответить | Цитировать Сообщить модератору
 Re: Как узнать первый выделенный элемент в ListBox при MultiSelect  [new]
Программист-Любитель
Member

Откуда:
Сообщений: 16839
Сделайте два списка с отношением один-ко-многим.
23 мар 07, 14:33    [3933955]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить