Код:
Sum := 0;
if Table5.Locate('Kodo', 1, []) then
Sum := Sum + Table5.FieldByName('Lst').AsFloat+ Table5.FieldByName('Sum').AsFloat
else
raise Exception.Create('Не найдена нужная запись');
for i:=2 to 8 do
begin
if Table5.Locate('Kodo', i, []) then
Sum := Sum + Table5.FieldByName('Lst').AsFloat
else
raise Exception.Create('Не найдена нужная запись');
Table5.Edit;
Table5.FieldByName('Sum').Value := Sum;
Table5.Post;
end;
Написала вот так и поместила все в FormShow! Пока работает
Polismen СПАСИБО!!!
П.С.
Polismen посмотрите, пожалуйста эту тему! Я пробую вставить значения строки в столбец1!!
http://www.delphisources.ru/forum/sh...322#post133322