Показать сообщение отдельно
  #1  
Старый 21.03.2013, 10:02
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию Из одной таблицы в другую

Подскажите пожалуйста, как вот этот кусочек кода вогнать в цикл?
Я пологаю что это должно быть похоже на - "for i=0 to Количество строк в ячейке do " А потом ещё это i нужно кудато присобачить)) Но никак до меня не дойдет куда
Код:
ADOQuery4.Locate('Код',ADOQuery1.FieldByName('Код').value,[loCaseInsensitive] );
if (a2=a1) and (a5<>a6) then
begin
ADOQuery4.Edit;
ADOQUery4.FieldByName('Количество').Value:=ADOQUery4.FieldByName('Количество').Value-ADOQuery1.FieldByName('По_Факту').Value;
ADOQUery4.FieldByName('Дата_OUT').Value:=ADOQuery1.FieldByName('Дата_OUT').Value;
ADOQuery4.Post;
ADOQuery4.Next;
ADOQuery1.Next;
Ответить с цитированием