[poli-smen]

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

Сначало данные для уточнения: У мну две таблицы "Платежи" и "Фирмы" Платежи соеденены через ADOTable1, а Фирмы через ADOTable2. В Платежах один столбец (гипотетически) Фир_ID, в Фирмах тоже один столбец Firm. Другими словами берётся данная из поля Фир_ID, меняется на данную из Firm (цыфра в Фир_ID равняется строке в поле Firm) и отображается в Edite2.

В таблице "Фирмы" (ADOTable2) должно быть минимум 2 поля (столбца):

1. "ID" - уникальный номер через который потом можно делать привязку в таблице "Платежи" и оно же указывается в поле "Фир_ID" у таблицы "Платежи"
2. "Firm" - строковое поле с названием фирмы

Тогда в обработчике событий ADOTable1AfterScroll получим такое:

Код:

if ADOTable2.Locate('ID', DataSet.FieldByName('Фир_ID').AsInteger, []) then
begin
  Edit2.Text := ADOTable2.FieldByName('Firm').AsString;
end else
begin
  Edit2.Text := '???';
end;