[poli-smen]

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

Всем добра! Проблема такая...есть 2 adoquery. в обоих есть столбец с данными "ГН". Нужно сделать так чтобы в адо2 выгрузилось время которое соответсвует "ГН" в адо1. в адо2 "ГН" в 4 столбце, в адо1 "ГН" во 2 столбце, "время" указано в 4 столбце. Нужно данные из столбца 4 адо1 соответствующие "ГН" записать в столбец 5 адо2. С циклами у меня туго, поогите пожалуйста написать код

Такое лучше делать не циклами, а SQL запросом.

Циклами так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    if ADOQuery2.Locate('ГН', ADOQuery1['ГН'], []) then
    begin
      ADOQuery2.Edit;
      ADOQuery2['Время'] := ADOQuery1['Время'];
      ADOQuery2.Post;
    end;
    ADOQuery1.Next;
  end;
end;