|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Из одной таблицы в другую
Подскажите пожалуйста, как вот этот кусочек кода вогнать в цикл?
Я пологаю что это должно быть похоже на - "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; |
#2
|
||||
|
||||
Код:
while not adoquery.eof do ... Я за здоровый экстрим! Спасибо за "спасибо") |
Этот пользователь сказал Спасибо Mrak за это полезное сообщение: | ||
cyborgg4655 (21.03.2013)
|
#3
|
||||
|
||||
adoquery.Next не забудь.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
cyborgg4655 (21.03.2013)
|
#4
|
|||
|
|||
Пасибо большое!!
|
#5
|
||||
|
||||
Цитата:
там кнопочка есть Я за здоровый экстрим! Спасибо за "спасибо") |
#6
|
||||
|
||||
Как я понял у вас существует логическая связь ADOQuery1.FieldByName('Код') = ADOQuery4.FieldByName('Код') и вы хотите выполнить ваш код для всех записей из Query1?
1. Вместо ручного поиска записи по Locate воспользуйтесь механизмом Мастер-Деталь. Что это такое и как делать найдете. 2. А обход записей делается так: Код:
While not Query1.Eof do begin //Помещаете сюда ваш блок кода end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
cyborgg4655 (21.03.2013)
|
#7
|
|||
|
|||
Цитата:
Код:
if a4=a6 then begin exit; end else |
#8
|
||||
|
||||
Цитата:
Зависает? с какой это радости. Пройдите Step by Step, и найдите причину "зависи" P.s для однострочного then begin и end не нужны. Код:
if a4=a6 then exit else //... |