Somar valor null

Delphi

09/11/2003

Edit1.Text:=FormatFloat(´R$ #,0.00´, qSomaResultado.value -qSomaDesp.Fields[0].Value);

Como fazer para que quando o valor de “ qSomaDesp.Fields[0].Value “ for zero a operação possa ser completada ?

Obrigado.


Jose

Jose

Curtidas 0

Respostas

M@rk Knopfler

M@rk Knopfler

09/11/2003

Quando um campo da tabela não está preenchido, o SQL retorna null e a operação não pode ser feita. Utilize a propriedade IsNull:

if qSomaDesp.Fields[0].IsNull then
// Se o campo for nulo, assuma o valor zero
Edit1.Text:=FormatFloat(´R$ #,0.00´, qSomaResultado.value - 0.00)
else
Edit1.Text:=FormatFloat(´R$ ,0.00´, qSomaResultado.value - qSomaDesp.Fields[0].Value);


GOSTEI 0
POSTAR