Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Как сделать так,CalcFields считались сразу для всех записей Query   Найти похожие ветки 

 
Al11 ©   (2003-03-11 13:37) [0]

При открытии формы с DBGrid-ом, связанным с Query, у которого есть
вычисляемые поля, переменнная СOnCalcFields: C:= C+1) равна количеству
отображенных в DBGrid-е (видимых (помещающихся) на экране) записей Query.
Как сделать так, чтобы эта переменная была равна общему количеству записей Query.
(т.е. CalcFields считались сразу для всех записей Query)


 
Johnmen ©   (2003-03-11 13:42) [1]

Зачем же это делать в OnCalcFields ?!!!
Возможно, подойдет RecordCount...


 
Al11 ©   (2003-03-11 15:04) [2]

Извините! Не то хотел спросить...
Нужно подсчитать сумму значении вычисляемомго поля (например FieldCalc у Query),
записи содержащие данное поле предварительно фильтруются. я сделал это так:

procedure...
...
Sum:=0;
Query.filtred:=true;
...
end;

В OnFiltredRecord у Query записи Фильтруются по условию и
у записей удовлетворяющих фильтру генерируется OnCalcFields, где
есть такой фрагмент Sum:=Sum+QueryFieldCalc.Valu
Но все дело в том, что Sum считается только
для тех записей удовлетворяющих фильтру, которые отображены в
DBGrid-е (связанной с Query)


 
Al11 ©   (2003-03-11 15:13) [3]



 
Johnmen ©   (2003-03-11 15:18) [4]

Так делать в принципе неверно !
Если нужна сумма, то просто пробежаться по всему НД и просуммировать...


 
Соловьев ©   (2003-03-11 15:21) [5]

select sum(field)
from table


 
Соловьев ©   (2003-03-11 15:27) [6]

with Query do
begin
Sum := 0;
First;
while not Eof do
begin
Sum := Sum + FieldByName("CalcField").AsIneteger;
Next;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
1-87906
TY
2003-03-17 02:28
2003.03.27
Как добавить в PopupMenu линию разделитель между пунктами


3-87858
Илайдж
2003-03-03 17:22
2003.03.27
Построение дерева


3-87863
AlexGof
2003-03-07 11:01
2003.03.27
Работа с ADO под SQL Server


1-88027
Z_man7777
2003-03-14 07:18
2003.03.27
Нажав на кнопку, как оставить фокус на предыдущем контроле


1-88057
SunnyTm
2003-03-14 21:45
2003.03.27
Поиск каталогов по FindFirst