Получить значение связанного поля из базы данных Access

[sergeykom]

В первой таблице имеются поля: "ID поставщика" и "Наименование поставщика". Во второй таблице поля: "Номер накладной" и "ID поставщика". Таблицы связаны между собой по полям "ID поставщика"(1-я таблица)->"ID поставщика"(2-я таблица). На форме 2 ComboBox (Delphi XE5). При выборе в первом ComboBox "Наименование поставщика" во втором ComboBox должны отображаться только накладные, принадлежащие выбранному поставщику. Для этого при выборе в 1-м ComboBox "Наименования Поставщика", если я не ошибаюсь, мне нужен ID этого поставщика, по которому я буду делать выборку для 2-го ComboBox. Вопрос в том, как получить значение поля "ID", выбирая соседнее поле "Наименование поставщика". Пожалуйста, подскажите! Спасибо!

[eval]

а как вы получили имена?

[sergeykom]

Через компонент ADOQuery:
procedure TfrmAddContract.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with frmComponent do
begin
frmComponent.adoq1.Active:=true;
while not adoq1.Eof do
begin
frmAddSupplier.cbSelectNumberContra ctAddSupp.Items.Add(adoq1.FieldByNa me('NumberContract').AsString);
adoq1.Next;
frmAddSupplier.cbSelectNumberContra ctAddSupp.Items.EndUpdate;
end;
end;
end;

[eval]

это что за взрыв клавиш?

[sergeykom]

это код получения имени в ComboBox

[phomm]

TComboBox заменить на TBDLookupComboBox, привязать к ним через TADODataSource нужные TADOQuery с поставщиками и накладными, и на событие изменения текущей записи в датасете с поставщиками - AfterScroll (которое будет происходить при изменении текущего элемента в лукапкомбо) ставить для датасета с накладными свойство Filter