Сложение столбца в DBGrid - БД в Delphi

Vitalik55 · 11.04.2009, 13:05

Никак не могу разобраться, как сложить столбец в Dbgrid и вывести сумму столбца в Label.
Компоненты ADO.

Антон Ю.Б. · 11.04.2009, 15:43

Либо отдельным запросом (select sum(...) from .. where ...), либо ручным перебором набора данных:

Код:

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);

Vitalik55 · 11.04.2009, 17:31

Спасибо большое все считает только заменил AsFloat на AsInteger.

CIIayHeHoK · 06.09.2011, 14:59

Цитата:

Сообщение от Антон Ю.Б.

Либо отдельным запросом (select sum(...) from .. where ...), либо ручным перебором набора данных:

Код:

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);

Спасибо Антон мне тоже вы очень помогли своим кодом

jawa250t · 12.12.2012, 20:42

спасибо большое! долго искал и нашел!!!

11.04.2009, 13:05	#1
Vitalik55 Пользователь Регистрация: 03.12.2008 Сообщений: 16	Сложение столбца в DBGrid Никак не могу разобраться, как сложить столбец в Dbgrid и вывести сумму столбца в Label. Компоненты ADO.

11.04.2009, 15:43	#2
Антон Ю.Б. Форумчанин Регистрация: 03.01.2009 Сообщений: 116	Либо отдельным запросом (select sum(...) from .. where ...), либо ручным перебором набора данных: Код: `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);`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сложение Диапазонов	valerij	Microsoft Office Excel	19	02.04.2009 13:52
Поиск по имени столбца и сложение строки по найденным столбцам	mihakr	Microsoft Office Excel	2	12.03.2009 13:35
В прямоугольной матрице переставить столбцы так, чтобы сумма элементов столбца росла от первого столбца	Aleo13	Помощь студентам	5	15.10.2008 18:34
Сложение	Droid	Общие вопросы Delphi	14	07.05.2008 13:23
DBGrid. Проблема со считыванием инфы из столбца.	Teenager	БД в Delphi	6	18.01.2008 15:33

11.04.2009, 17:31	#3
Vitalik55 Пользователь Регистрация: 03.12.2008 Сообщений: 16	Спасибо большое все считает только заменил AsFloat на AsInteger.

12.12.2012, 20:42	#5
jawa250t Пользователь Регистрация: 27.01.2011 Сообщений: 55	спасибо большое! долго искал и нашел!!!