Консультация № 152594
02.12.2008, 11:43
0.00 руб.
0 1 1
Доброе время суток !! У меня вопро.
У меня данніе с базы выводятся в DBGRIDEH- по столбцам. Мне нужно сумму столбца какого либо вывести в LABEL

Приложение:
With DataModule1.IBDataSet1 Do
Begin
Active := False;
SelectSQL.Clear;
Case Main_Vid_Type Of
//Ãëàâíûé âèä
0: Begin
SelectSQL.Add('SELECT Zakaz.*, cast(Suma/Square as int) FROM Zakaz');
SelectSQL.Add(' WHERE Zakaz.Nomer_Zakaz = Zakaz.Nomer_Zakaz');
End;

Обсуждение

Неизвестный
02.12.2008, 12:16
общий
это ответ
Здравствуйте, Agkadekin!
Предлагаю два варианта:
1. Средствами EhLIBа в dbGridEh активировать Footer, SumList и для нужного столбца сделать Footer.ValueType := fvtSum; Footer.FieldName := 'DataField Name'; Далее, при необходимости, доступ к этой сумме можно получить через dbGridEh.Columns[i].Footer.Value
2. Пройтись по DataSet и просуммировать нужный столбец. Например как в приложении

Приложение:
sum := 0;
DataSet.First;
while not DataSet.Eof do
begin
sum := sum + DataSet.FieldByName('DataField Name').AsFloat;
DataSet.Next;
enb;
Label.Caption := FormatFloat('#0.00', sum);
Форма ответа