Доброго времени суток.

Значит, ситуация следующая. Для работы с записями использую ListBox'ы (тип источника строк - список значений с ручной загрузкой соотв. данных). Для удобства экспорта в Excel решил соотв. ListBox'ы сделать со связным выбором - чтобы из данного конкретного ListBox'а экспортировать только нужные записи. И вот тут возникла проблема с навигацией.

Для редактирования/удаления записи, отображения ее дочерних записей нужно, чтобы в ListBox'е была выделена только одна строка. Это проверяется просто:

    If List.ItemsSelected.count <> 1 Then
        Exit Sub
    End If

Далее. Если элемент списка выделен щелчком мыши, то для его определения вполне работоспособен следующий код:

    Dim xxx As Long
    xxx = List.ItemsSelected.Item(0)

А вот если я перемещаюсь по списку нажатием стрелок "вверх" и "вниз" на клавиатуре и в List_AfterUpdate хочу отреагировать на изменение выбранного элемента, то указанный выше код не работает. Точнее, при очередном вызове код возвращает индекс того элемента, который был выделен в прошлый раз, до последнего нажатия клавиш "вверх" или "вниз".

С другой стороны, если я удалил выделенный элемент списка и программно задал индекс нового выделенного элемента, то с ним код работает нормально.

В качестве примера прилагаю небольшую БД с одной формой с описанными выше функциями.

Не подскажете, как побороть проблему? Буду крайне благодарен.

http://www.sql.ru/forum/1234252/navigaciya-v-listbox-so-svyaznym-vyborom