Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Пустые записи [D6, dBase, FoxPro]

bolat_ © (2005-04-26 14:23:00)
Здраствуйте мастера, пишу такой код

var
ab:variant
.....
query1.First;
ab:=0;
repeat
ab:=ab+query1.FieldByName('summa').Value;
until query1.Eof;
edit2.Text:=floattostr(ab);

Если с кода не понятно объяню словами я должен вывести сумму всех значений поле summa в edit1, в принципе этот код работает, но если попадает пустая запись, прога пишет Variant type conservation (помоему так), помогите пожалуйста разобратся.

Заранее благодарен, с уважением Болат

Desdechado (2005-04-26 17:05:00) [1]
2 bolat_
Еще один момент - цикл repeat until подразумевает, что у тебя будет хоть одна строка в наборе данных. В случае, когда он будет пуст, вылезет ошибка.

Sergey13 (2005-04-26 16:18:00) [2]
2[6] bolat_ (26.04.05 16:14)
>p.s. Модераторам помоему Ваш сервер немного глючит или наш инетрнет, при попытке создать, добавить сообщение выходит ошибка 500

А мужики то не знают! (с) Пиво Толстяк.
8-)

bolat_ (2005-04-26 16:14:00) [3]
число записей не так уж и много так что этот вариант мне подходит
большое спасибо Johnmen, desdechado

p.s. Модераторам помоему Ваш сервер немного глючит или наш инетрнет, при попытке создать, добавить сообщение выходит ошибка 500,

Johnmen (2005-04-26 16:07:00) [4]
:)))
>все агрегирующие функции (кроме count) игнорируют null-значения,

Т.е. и мы докучи проигнорируем...:)

Desdechado (2005-04-26 15:57:00) [5]
а шоб було :)
все агрегирующие функции (кроме count) игнорируют null-значения, но так нагляднее, хотя с точки зрения быстродействия полное Г

Johnmen (2005-04-26 15:48:00) [6]
>Desdechado © (26.04.05 15:44) [2]
>where summa is not null

А это зачем? /просто интересно/

Desdechado (2005-04-26 15:44:00) [7]
а вообще я бы использовал
select sum(summa) from tablica
where summa is not null

Johnmen (2005-04-26 14:30:00) [8]
1. Этот "код" не может правильно работать, т.к. нету Next
2. Зачем какой-то вариант, если работаем с Float ??? См. AsFloat

Наверх

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