[cyborgg4655]

Подскажите пожалуйста, как вот этот кусочек кода вогнать в цикл?
Я пологаю что это должно быть похоже на - "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;

[Mrak]

Код:

while not adoquery.eof do ...

пока нет конца записей делать

[M.A.D.M.A.N.]

adoquery.Next не забудь.

[cyborgg4655]

Пасибо большое!!

[Mrak]

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

Пасибо большое!!

спасибо в карман не нальешь))
там кнопочка есть

[Страдалецъ]

Как я понял у вас существует логическая связь ADOQuery1.FieldByName('Код') = ADOQuery4.FieldByName('Код') и вы хотите выполнить ваш код для всех записей из Query1?
1. Вместо ручного поиска записи по Locate воспользуйтесь механизмом Мастер-Деталь. Что это такое и как делать найдете.
2. А обход записей делается так:

Код:

While not Query1.Eof
do begin
    //Помещаете сюда ваш блок кода 
    end;

[cyborgg4655]

Сообщение от Страдалецъ

Как я понял у вас существует логическая связь ADOQuery1.FieldByName('Код') = ADOQuery4.FieldByName('Код') и вы хотите выполнить ваш код для всех записей из Query1?
1. Вместо ручного поиска записи по Locate воспользуйтесь механизмом Мастер-Деталь. Что это такое и как делать найдете.
2. А обход записей делается так:

Код:

While not Query1.Eof
do begin
    //Помещаете сюда ваш блок кода 
    end;

При первом нажатии на кнопку цикл проходит как надо на УРА, а вот если я на нее жму повтрно то все зависает)) в каком моенте мне лучше вставить

Код:

if a4=a6 then
begin
 exit;
end else

либо что то другое)

[Uniq!]

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

При первом нажатии на кнопку цикл проходит как надо на УРА, а вот если я на нее жму повтрно то все зависает)) в каком моенте мне лучше вставить

Код:

if a4=a6 then
begin
 exit;
end else

либо что то другое)

Зависает? с какой это радости. Пройдите Step by Step, и найдите причину "зависи"

P.s для однострочного then begin и end не нужны.

Код:

if a4=a6 then exit
else
//...