| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

вложенные циклы.... непонятка... [D7, Access]

alekslep ©   (2006-06-30 13:15:00) 

Всем здравствуйте.... имеется следующий код:
while not DataModule1.ADOTableTovars.Eof do
 begin
   nazv := DataModule1.ADOTableTovars.FieldByName('tovars_nazv_id').AsString;
   while not DataModule1.ADOTablePrihod.Eof do
   begin
     if DataModule1.ADOTablePrihod.FieldByName('prihod_tovar').AsString = nazv
       then
         p_kol_vo := p_kol_vo +DataModule1.ADOTablePrihod.FieldByName('prihod_kol-vo').AsInteger;
   end; // while
   DataModule1.ADOTableTovars.Next;
 end; // while
 DataModule1.ADOTableTovars.Append;
 DataModule1.ADOTableTovars.FieldByName('tovars_prihod_kol-vo').Value :=
   p_kol_vo;
 DataModule1.ADOTableTovars.Post;

при попытке запуска - виснет..... почему ???

---

alekslep   (2006-07-04 14:00:00) [1]

спасибо

---

Ega23   (2006-06-30 13:18:00) [2]

У тебя два While и один Next

---

stone   (2006-06-30 13:16:00) [3]

> while not DataModule1.ADOTablePrihod.Eof do
>    begin
>      if DataModule1.ADOTablePrihod.FieldByName('prihod_tovar').
> AsString = nazv
>        then
>          p_kol_vo := p_kol_vo +DataModule1.ADOTablePrihod.
> FieldByName('prihod_kol-vo').AsInteger;
>    end; // while

A Next где?

---

Наверх