onCalcFields.................................... [D6, D7, Paradox]
kukuikar © (2004-05-15 11:13:00)
Толи я дурак, толи .............
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:00) [1]
В какой таблице калькфиелд? По каким таблицам навигация? Если
по одной и той же - то первое.
Наверх 
ЧАТ |
Орешник |
|
