Скачать: CL | DM;

Сложение столбца   Найти похожие ветки 

← →
Maxio   (2003-09-26 15:56) [0]

Здрастуте!

У меня такой вопрос: Как сложить значения 1 столбца в DBGrid? програмным путём, но не в SQL!

---

← →
MsGuns ©   (2003-09-26 16:22) [1]

var
bk: TBookMark;
s: extended;

begin
DBGrid1.DataSource.Enabled := false; // Убрать мелькание
with Table1 do
begin
GetBookMark(bk); // Текущая запись НД = активная строка гр
First; // В начало НД
s := 0;
while not EOF do
if FieldByName("<Имя поля НД>").AsString>"" then
s := s+FieldByName("<Имя поля НД>").AsFloat;
GoToBookMark(bk); // Вернуться в исх.запись
FreeBookMark(bk); // Освободить ресурс
end;
DBGrid1.DataSource.Enabled := true; // Возобновить отображение
end;
На SQL аллегрия ?

---

← →
Maxio   (2003-09-26 16:49) [2]

А как полученный результат вывести в Label?

---

← →
Малиновский Владимир   (2003-09-26 16:53) [3]

Вы еще кипятите?
MsGuns уже выезжает со своими TLabel"s, TDBGrid"s и лицензионным Delphi.
-------------
Ты что, хочешь значения всех записей в один TLabel засунуть, или только текущую? Используй DB - Aware компоненты

---

← →
Maxio   (2003-09-26 17:01) [4]

Извените за непонемание!
Мне нужно сложить всё поле в DBGridе и вывести полученный результат в Label.

Спосиьо за внимание!

---

← →
Zacho ©   (2003-09-26 17:10) [5]

> Maxio (26.09.03 17:01) [4]

Да нет данных в DBGrid"е, нет и все ! DBGrid только отображает данные из подключенного к нему набора данных.
P.S. Не почитать ли тебе учебники ?
P.P.S. Если не хочешь читать - посмотри TDBGridEh из библиотеки EhLib.

---

← →
Vlad ©   (2003-09-26 17:13) [6]

Label.Caption:=FloatToStr(S);
Только насчет Extended... Думаю MsGuns © погорячился. Double вполне хватит.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c