[Kis]

если пишу так

Код:

  begin
  ADOQuery2.First;
  while not ADOQuery1.Eof do
  begin
  d:= ADOQuery1['new_str1'];
  f:= ADOQuery2['garn'];
    if ADOQuery2.Locate('garn', ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then
    begin
      ADOQuery2.Edit;
      k := ADOQuery1['datetime'];
      ADOQuery2.Post;
    end;
    ADOQuery2.Next;
  end;
  end;

то он теперь каждый раз заходит в бегин....если так

Код:

  begin
  ADOQuery2.First;
  while not ADOQuery1.Eof do
  begin
  d:= ADOQuery1['new_str1'];
  f:= ADOQuery2['garn'];
    if ADOQuery2.Locate(adoquery2.fieldbyname('garn').AsString, ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then
    begin
      ADOQuery2.Edit;
      k := ADOQuery1['datetime'];
      ADOQuery2.Post;
    end;
    ADOQuery2.Next;
  end;
  end;

то опять пролетает...