Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Сен

Как сложить столбец в Dbgrid и вывести сумму столбца в Label?

Posted by Chas under Delphi, Пост-обзор

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

Антон Ю.Б.
Либо отдельным запросом (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);

тема на форуме