Как настроить DBLookupComboBox?

Question

[White_Bambie]

Доброго времени суток! Столкнулся с весьма неприятной проблемой во время разработки декстопного приложения. Проблема в компоненте DBLookupComboBox. На форме есть ADO с БД Access, два компонента DBLookupComboBox, оба связаны с таблицей через DataSourse1 через ListField. Данные с таблицы отображаются в обоих боксах, но когда я выбрал в первом запись, а затем переключаюсь на второй комбобокс, то значение из первого комбобокса пропадает. Работаю в среде Delphi XE7, раньше работал с Borland 7 и такой проблемы не было. Для примера сделал такой же пример в Borland и все работает, а здесь нет. В чем может быть проблема? В среде или я что-то не понимаю? -_-

Comments

[kalapanga]

По тому, что есть - непонятно ничего. Вы бы выложили минимальный проект, в котором ошибка проявляется, куда-нибудь (вместе с базой конечно). Тогда можно было бы и в других версиях Delphi проверить и просто на настройки всех этих комбобоксов глянуть, чем тут их выспрашивать.

[White_Bambie]

kalapanga, ошибки нет. Есть странная работа компонента в разных версиях сред, вот и все

Answer 1

[White_Bambie]

Ссылка на проект

https://yadi.sk/d/_5sc0YAF3abhhJ

В Delphi 10.1 такая же проблема...

Comments

[kalapanga]

Похоже, что оно только в Delphi 7 и работало... Вопрос Ваш в интернете встречается давно и довольно часто. Но существующее поведение лукапкомбобоксов довольно логично. ListSource - это в конечном счете DataSet, который содержит некоторый набор записей. В этом наборе есть первая запись, последняя запись, текущая запись (!). Комбобокс осуществляет навигацию по этому датасету. И как в нём (датасете) одновременно могут быть две разные текущие записи? По-этому, без дополнительных ухищрений комбобоксы и могут работать только поочереди.
Сторонние компоненты (аналоги DBLookupComboBox), которые позволяют работать так, как Вам хочется (например TDBLookupComboboxEh из EhLib), возможно, создают локальную копию отображаемого датасета или что-то в этом духе. Возможно и D7 работала так же. Тут чтобы выяснить истину только исходники смотреть нужно.

[Freeman]

kalapanga, на самом деле когда был Delphi 7, все так же спрашивали. Время идет, а вопросы не меняются.

[White_Bambie]

Vapaamies, в Delphi 7 все работает как нужно, вчера такой же проект накидал. Проблема в новых средах видимо...

[White_Bambie]

kalapanga, Вам спасибо! Установил EhLib и все прекрасно работает!

Answer 2

[microfrog]

Вероятно DBLookupComboBox заполняются значениями при активации компонента.
После выбора значения в первом DBLookupComboBox, курсор в таблице ADOTable1 устанавливается на определенную запись, а после активации второго DBLookupComboBox, таблица перечитывается, и курсор сбивается. Подключите TDBGrid, и это станет видно визуально.