Форум: "Потрепаться";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];

Вниз

Сумма столбца 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.55 MB
Время: 0.027 c