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

← →
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]

спасибо

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