Скачать: CL | DM;

onCalcFields....................................   Найти похожие ветки 

← →
kukuikar   (2004-05-15 11:13) [0]

Толи я дурак, толи .............


var
summ: Double;
begin
Table1.Open;
Table2.Open;
for I=1 to Table1.RecCount do
begin
with Table2 do
 begin
 summ:=0;
 First;
 while not EoF do
   begin
   if Locate("Table2_ID", DataModule1.Table1_ID, []) then
   summ := summ + DataModule1.Tabel2_KOLICHESTVO.Value;
   Next;
   end;
 Field1_KOLICHESTVO := summ;
 end;
end;
end;

ефл вот.
прога при прогоне не точтобы ыиснет, а просто не визуализируется.
есть подозрение что бесконечно считает цикл.
Почему?

---

← →
Mike Kouzmine ©   (2004-05-15 12:02) [1]

В какой таблице калькфиелд? По каким таблицам навигация? Если по одной и той же - то первое.

---

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

Скачать: CL | DM;



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