Доброе время суток всем!!! Помогите мне пжалуста, не могу сообразить.
Есть база данных, DBGrid с данными, данные отфильтровываются SQL запросом. Необходимо что бы после фильтрации данные которые остались в DBGride суммировались по строкам в определённом столбце, и сумма показывалась хотя бы в Edit или в Label.
Усли кто поможет кусочком кода, буду благодарен.[email protected]

Если только в Edit - пожалуйста!
Допустим, твой запрос, связанный с Grid, носит имя Query1.
Тогда используй integer-переменную i и float-переменную sum или массив sum [1..n].
Итак, поехали:

//Обнуляем sum
sum:=0;
//Установка указателя на первую запись в Grid'е
Query1.First;
//Считаем сумму в цикле, перемещаясь по записям
for i:=0 to Query1.RecordCount-1 do begin
//j - номер нужного поля в запросе
sum:=sum + Query1.Fields.Fields[j].AsFloat;
Query1.Next;
end;
Edit1.Text:=FloatToStr(sum);

Есть способ лучше:
если в DBEdit, то вторым (или этим же) квери выполняешь запрос типа

Код

select sum(field_name) from table_name.dbf where uslovie = true

а DBEdit привязываешь к DataSource Квери.

А в гриде надо создать поле типа калькулейшин и прописать ексепш типа полеС = полеА+полеБ .

А еще можно использовать DbGridEh - там есть агрегативные функции. См.FAQ

Цитата

//Обнуляем sum sum:=0; //Установка указателя на первую запись в Grid'е Query1.First; //Считаем сумму в цикле, перемещаясь по записям for i:=0 to Query1.RecordCount-1 do begin //j - номер нужного поля в запросе sum:=sum + Query1.Fields.Fields[j].AsFloat; Query1.Next; end; Edit1.Text:=FloatToStr(sum);

Если будешь использовать этот способ и таблица большая, то лучше сначала отключить DataSource, а потом включить его обратно... Почему-то так быстрее считает.... Наверно, время на отрисовку движения по гриду не тратится....

Maverick, отключать ничего не надо, для этого существуют DisableControls .. EnableControls. а насчёт отрисовки - именно так

Цитата

А еще можно использовать DbGridEh - там есть агрегативные функции. См.FAQ

Согласен.
А еще лучше использовать dxDBGrid, из библиотеки DevExpress Express Quantum Grid.

Pegas, дык она вроде не бесплатная?

У меня бесплатная...