Как посчитать сумму столбца Dbgrid?

[вася радугов]

Нашел на форуме код, который считает сумму столбца Dbgrid. Вот он:

s:=0;

i:=AdoTable.RecNo;

AdoTable.DisableControls;

AdoTable.First;

while not(AdoTable.Eof) do

  begin

    S:=S+AdoTable.FieldByName('..').AsFloat;

    AdoTable.Next;

  end;

AdoTable.RecNo:=i;

AdoTable.EnableControls;

Label.Caption:=FloatToStr(s);

только здесь сумма выводится в Label, а как вывести сумму в столбец Dbgrid?
Я пытаюсь вместо строки

Label.Caption:=FloatToStr(s);

Написать так

 rach.FieldByName('d').Value:=IntToStr(s);

но это неправильно. Подскажите как можно сделать по-другому.

[Stilet]

Вообще-то такие вычисления делаются с помошью вычисляемых полей
http://www.delphiplus.org/programiro...ted-polya.html
http://www.helloworld.ru/texts/comp/...phi1/les38.htm
http://devdelphi.ru/?p=1229
(Ну или запросом)
А то что ты хочешь сделать это не совсем правильно.

[Аватар]

DBGridEh просто это делает, ну в общем для ленивых

[вася радугов]

Спасибо за ссылки. Исправил код вот так

procedure TForm11.rachCalcFields(DataSet: TDataSet);
 var
s:integer;
begin
 s:=0;
 with rach do begin
rach.DisableControls;
repeat
  S:=S+rach.FieldByName('SUMMA2').AsInteger;
rach.next;
 until eof;
 rach.First;
 rach.EnableControls;
 end;
 rach.FieldByName('d').Value:=s;
end;

при запуске появляется ошибка Stack overflow. Как ее исправить?

Сообщение от Аватар

DBGridEh просто это делает, ну в общем для ленивых

У меня нет этого компонента. Может ошибаюсь, но кажется его надо устанавливать.

[Stilet]

Исправил код вот так

Все равно это непрофессионально. А точнее такой обход чреват пичальными последствиями.

Может ошибаюсь, но кажется его надо устанавливать.

Не ошибся. Но если хочется сразу и быстро - оно того стоит.

[вася радугов]

Если честно, я не знаю, как сделать по-другому. Может подскажите, если вам нетрудно.

[Stilet]

Нетрудно. Поэтому выше и выложил ссылки. Все вычисляемые поля не должны записываться в базу - это ее загрязняет лишними данными. Более того есть случаи когда такая запись весьма опасна для аналитических расчетов.

[вася радугов]

Мне надо посчитать не просто сумму столбца, а получить итог столбца Summa, где Summa - это Calculated поле. Может поэтому у меня не получается посчитать или это не играет никакой роли?

[Streletz]

Summa - это Calculated поле

Зачем?
Можно создать запрос, который считает итоги и, на худой конец, присоединить его через union к основному запросу.
Хотя, что мешает скачать и установить EhLib. Версия 3.6 бесплатная.

[вася радугов]

Сообщение от Streletz

Зачем?

я имел ввиду, что у меня есть таблица, в ней поля цена и количество, а в поле Summa (вычисляемое) соответственно считается сумма: цена*количество автоматически. А я хочу посчитать итоговую сумму, то есть сложить все поля Summa