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

Вниз

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

 
rosl   (2003-05-07 06:29) [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;
{вставить результат в панель}
DataModule3.Table_summit.Value:=r;
но если в поле попадается пустая ячейка, выдаёт ошибку. Что делать?


 
Наталия ©   (2003-05-07 06:35) [1]

Проверять перед суммированием нужное поле на допустимое значение или использовать try...except


 
Palladin ©   (2003-05-07 08:42) [2]

repeat
until
замени на while
таблица пустая будет, вылетит...

> Наталия © (07.05.03 06:35)

на какой еще try except?
while not eof do
begin
if not Query_bazasumm.IsNull then r:=r+Query_bazasumm.AsCurrency;
next;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
14-83687
Ihor Osov'yak
2003-05-05 17:02
2003.05.26
Блин, Каzaa - как заставить работать..


3-83376
Belkova
2003-05-05 21:23
2003.05.26
Выделение в DBGrid


14-83729
Дмитрий К.К.
2003-05-07 06:23
2003.05.26
Именинники 7 мая


14-83647
Top Gun
2003-05-01 00:06
2003.05.26
Как действует функция SetWindowLong ? Никак не пойму


14-83739
Hacker.
2003-05-03 08:37
2003.05.26
Извлечение из ресурсов