Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.009 c
3-51133
VITONchik
2003-09-25 02:34
2003.10.16
Сжатие и восстановление БД?


3-51074
AlexA
2003-09-24 16:37
2003.10.16
таблица DBF. Ошибка - Invalid index descriptor.


7-51537
Evgeniy
2003-07-31 09:32
2003.10.16
Изображение под формой


1-51189
StAL
2003-10-04 17:18
2003.10.16
Реализация SizeOf


3-51081
KMI
2003-09-26 18:44
2003.10.16
EMS IB Manager Prof 3.5.0.3 - Cracked





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский