Форум: "Базы";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Базы";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.032 c