Тема: 2 Adoquery
Показать сообщение отдельно
  #14  
Старый 20.12.2013, 08:36
Kis Kis вне форума
Новичок
 
Регистрация: 02.09.2011
Сообщения: 76
Репутация: 11
По умолчанию

Решил не использовать локейт...написал такой код
Код:
begin
  adoquery1.First;
  while not adoquery2.Eof do
    begin
    ADOQuery2.First;
    while not ADOQuery1.Eof do
      begin
      d:= ADOQuery1['new_str1'];
      f:= ADOQuery2['garn'];
      if f=d then
          begin
          ADOQuery2.Edit;
          adoquery2['fio2'] := ADOQuery1['datetime'];
          ADOQuery2.Post;
          end;
    ADOQuery2.Next;
      end;
    adoquery1.Next;
    end;
end;
теперь прога виснет...как я понял, я написал "вечный цикл"? помогите исправить, а то не пойму где ошибка
Ответить с цитированием