Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];

Вниз

вложенные циклы.... непонятка...   Найти похожие ветки 

← →
alekslep   (2006-06-30 13:15) [0]

Всем здравствуйте.... имеется следующий код:
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;

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

---

← →
stone ©   (2006-06-30 13:16) [1]

> 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 где?

---

← →
Ega23 ©   (2006-06-30 13:18) [2]

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

---

← →
alekslep   (2006-07-04 14:00) [3]

спасибо

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c