| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сумма поля [D6, dBase, FoxPro]

rosl ©   (2003-05-16 09:35:00) 

Подскажите пожалуйста.
Подсчитываю сумму поля:
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;
Но если попадается пустая строка выходит ошибка.
Как игнорировать пустые строки.

---

Anatoly Podgoretsky   (2003-05-16 11:24:00) [1]

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

---

Соловьев   (2003-05-16 09:54:00) [2]

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

---

rosl   (2003-05-16 09:47:00) [3]

Спасибо!!!

---

Lord Warlock   (2003-05-16 09:41:00) [4]

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

---

Наверх