Текущий архив: 2003.10.16;
Скачать: 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 вся ветка
Текущий архив: 2003.10.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
