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

Вниз

сумма поля   Найти похожие ветки 

← →
rosl   (2003-05-16 09:35) [0]

Подскажите пожалуйста.
Подсчитываю сумму поля:
var
r: double;
begin
r:=0;
with Query_baza do begin
Query_baza.DisableControls;
close;
open;
repeat
r:=R+Query_bazasumm.AsCurrency;
next;
until EOF;
first;
Query_baza.EnableControls;
end;
Но если попадается пустая строка выходит ошибка.
Как игнорировать пустые строки.

---

← →
Lord Warlock ©   (2003-05-16 09:41) [1]

while Query_bazasumm.IsNull do
Next;
r:=R+Query_bazasumm.AsCurrency;

---

← →
rosl   (2003-05-16 09:47) [2]

Спасибо!!!

---

← →
Соловьев ©   (2003-05-16 09:54) [3]

А что SQL уже не катит?
select sum(summ) as FieldSum
from table

---

← →
Anatoly Podgoretsky ©   (2003-05-16 11:24) [4]

Странно использовать запрос и потом навигация по нему :-)

---

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

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

Наверх

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