Главная страница
    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.45 MB
Время: 0.011 c
6-51380
SergK
2003-08-18 16:58
2003.10.16
Ошибка работы с сокетами


14-51446
lokka
2003-09-29 20:51
2003.10.16
Аутсорсинг!


1-51301
Zhouck
2003-10-04 13:15
2003.10.16
Можно ли использовать в Delphi формы из C++Builder(с кодом)


7-51529
Jeka.
2003-08-04 13:27
2003.10.16
Виндовый login uzera???


6-51394
Аноним
2003-08-20 22:25
2003.10.16
DNS запрос





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский