Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получить сумму по столбцу в ehlib? [D7, MSSQL]


gedd ©   (2004-04-08 11:41:00) 

Вопрос такой получить визуально на экране сумму в dbgrideh вообще то не проблема.
Пример ниже считает сумму в четвертом поле:
Form3.DBGridEh1.Columns[4].Footers.add;
Form3.DBGridEh1.Columns[4].Footers[0].ValueType:=fvtSum;

Но вот как мне эту самую сумму передать в мою переменную?
Заранее благодарен!


gedd   (2004-04-08 14:44:00) [1]

Вот так надо спасибо Большако Дмитрию - автору компоненты!
ShowMessage( FloatToStr(Form3.DBGridEh1.SumList.SumCollection.GetSumByOpAndFName(goSum, 'ИмяПоля').SumValue ));


Johnmen   (2004-04-08 14:04:00) [2]

Form3.DBGridEh1.Columns[4].Footer.FieldName:=...;
Form3.DBGridEh1.Columns[4].Footer.ValueType:=fvtSum;


gedd   (2004-04-08 14:04:00) [3]

Точнее
ShowMessage(  FloatToStr(DBGridEh1.SumList.SumCollection[0].SumValue) );
Ошибка разделения ресурсов


gedd   (2004-04-08 13:55:00) [4]

>DBGridEh1.SumList.SumCollection[i].SumValue
Ошибка разделения ресурсов


Johnmen   (2004-04-08 13:38:00) [5]

>где лежит значения суммы по столбцу?

В свойстве SumValue.


gedd   (2004-04-08 12:59:00) [6]

Если чесно, то не ясно, где лежит значения суммы по столбцу?


Johnmen   (2004-04-08 12:20:00) [7]

В посте [1] что-то неясно ?


gedd   (2004-04-08 11:55:00) [8]

Вот этот кусос сосчитает сумму  по столбцу
DBGridEh1.Columns[4].Footers.add;
DBGridEh1.Columns[4].Footers[0].ValueType:=fvtSum;
и если после него вызвать
переменная:=DBGridEh1.Columns[4].Footer.Value;
то вернется пустая строка!


Johnmen   (2004-04-08 11:47:00) [9]

Суммы,количества записей :
DBGridEh1.SumList.SumCollection[i].SumValue;Cтатический текст :
DBGridEh1.Columns[i].Footer.Value;


Наверх

Титульная страница Поиск, карта сайта Написать письмо