[Pirashatan]

Добрый вечер! Подскажите, пожалуйста, как сделать так, чтобы в DBLookupComboBox2 выпадал список в зависимости от значения DBLookupComboBox1. Уточню, в DBLookupComboBox1 выбирается поле Hoses. И вот в зависимости от значения данного поля, надо вывести в DBLookupComboBox2 только те ListField, в записи которых значения Hoses совпадают со значениями DBLookupComboBox1

[lmikle]

1. Делаешь связь между источникаси данных для лукапов типа Master-Detail. Все будет работать автоматически, но обы списка реально будут грузиться посностью.
1а. Вариант того же, но на основе OnfilterRecord - реализуешь фильтрацию на уровне обработчика указанного события.
2. Делаешь загрузку данных во второй источник а момент получения фокуса компонентом DBLookupComboBox2. там на уровне запроса можно указать как фильтровать данные.

[Pirashatan]

Сообщение от lmikle

2. Делаешь загрузку данных во второй источник а момент получения фокуса компонентом DBLookupComboBox2. там на уровне запроса можно указать как фильтровать данные.

А вот этот момент можно подробнее

[Yurk@]

пример для подключения Query1 в качестве источника данных для Комбо2:

Код:

procedure TForm1.DBLookupComboBox2Enter(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Text:='SELECT FieldForBox FROM MyTable WHERE KeyFieldForBox = '+DBLookupComboBox1.Value+'';
Query1.Open;
end;

[Страдалецъ]

А нафига козе баян? Все намного проще и делается автоматом.
Допустим имеется таблица Словари в ней есть три поля Код,Понятие,Словарь. Теперь мы хотим организовать связку двух комбиков, так чтобы в первом выводились Словари а во втором синхронно Понятия для выбранного словаря из первого комбика.
Бросаем на форму 2 квери и 2 датасоурса.
Для первого квери заполним поля:

Код:

Connection := AdoConnection1;
SQL := 'select Словарь from Словари group by Словарь';

Для второго квери заполним поля:

Код:

Connection := AdoConnection1;
DataSource := DataSource1;
SQL := 'select * from Словари where Словарь = :Словарь';

Для первого комбика:

Код:

ListSource := DataSource1;
ListField := 'Словарь';
KeyField := 'Словарь';

Для второго комбика:

Код:

ListSource := DataSource2;
ListField := 'Понятие';
KeyField := 'Словарь';

Теперь все это дело активируем и наслаждаемся автоматической связкой всех компонентов.

[Pirashatan]

Сообщение от Страдалецъ

Код:

Connection := AdoConnection1;
DataSource := DataSource1;
SQL := 'select * from Словари where Словарь = :Словарь';

Одна проблема. Поля (ЛистСорсы) находятся в разных таблицах. И одно поле первой таблицы буквально просто дублируется другим полем в другой таблице.