Текущий архив: 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.015 c
