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

Вниз

Сумма столбца DBGrid   Найти похожие ветки 

 
Laxer   (2003-05-16 11:08) [0]

Здравствуйте мастера,у меня такой вопрос, на форме есть Table1, Edit1, DBGrid1 (IDNUM, DATWORK, NAME, SURNAME, SUM_DAY)и DBEdit1, как подсчитать сумму столбца SUM_DAY c условием что DATWORK равен Edit1. Перерасчет происходит по OnChange Edit1.


 
Dms   (2003-05-16 11:12) [1]

Table1.First;
S:=0;
while not Table1.Eof do
if Table1.FieldByName("DATWORK").AsString = Edit1.Text then S:=S+Table1.FieldByName("SUM_DAY").AsInteger;


 
Dms   (2003-05-16 11:12) [2]

забыл в цикл вставить Table1.Next


 
Diouzshev ©   (2003-05-16 12:17) [3]

Тут есть ещё одни грабли!
В OnChange пиши

Timer1.Enabled:= False;
Timer1.Enabled:= True;

А суммируй в OnTimer и интервал подбери, а то так тормозить будет, понимаешь.

А ещё лучше сделай Доп запрос с текстом:
select SUM(SUMDAY) from T1 GROUP BY DATAWORK и ищи SUMDAY в нем.
Через Locate.



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
1-2928
Hill
2003-05-20 17:52
2003.06.02
TRichEdit и как разобрать текст по оформлению


4-3216
nikkie
2003-04-02 23:39
2003.06.02
WM_ENDSESSION


14-3097
ZKK
2003-05-14 07:49
2003.06.02
про аьску


4-3213
SammIk
2003-03-31 08:32
2003.06.02
Ресурсы


3-2753
corte ™
2003-05-13 09:15
2003.06.02
Кто нить знает? Как решить проблему.