CxGrid ie toplama yaparken ilginç hata.

[Bilgitech]

Herkese merhaba, soruyu daha önce açmıştım ama silindi mi ne oldu anlamadım. Ufak bir proje ile uğraşıyorum ama şöyle bir problemim var. Vt firebird ibdataset kullanıyorum ve cxgrid ile de verileri gösteriyorum. Cxgrid in özelliği olan alan toplama yaptım summary ancak tablo boş olunca hata veriyor bunun önüne nasıl geçebilirim? yada ben hatayı ondan dolayı verdiğini düşünüyorum.

kodum bu:
cxcurrencyedit1.Value:=cxgrid1dbtableview1.DataController.Summary.FooterSummaryValues[0];
cxcurrencyedit2.Value:=cxgrid1dbtableview1.DataController.Summary.FooterSummaryValues[1];
cxcurrencyedit3.Value:=cxcurrencyedit1.Value-cxcurrencyedit2.Value;

hata ise bu:
Could not convert variant of type (Null) into type (Double)

şimdiden teşekkürler.

[mussimsek]

cxGrid bu değerleri variant olarak tutar, boş olup olmamasını kontrol etmen lazım. VarIsNull ile kontrol edebilirsin.

if not VarIsNull(cxcurrencyedit1.Value) and...

Kolay gelsin.

[Bilgitech]

Teşekkür ederim hocam sonradan sorununun oradan kaynaklandığını anladım, aşağıdaki kodu yazarak sorunu çözdüm ama sanırım sıkıntı olmaz?

Kod: Tümünü seç

if iBdataset1.IsEmpty then begin
abort
end else begin
cxcurrencyedit1.Value:=cxgrid1dbtableview1.DataController.Summary.FooterSummaryValues[0];
cxcurrencyedit2.Value:=cxgrid1dbtableview1.DataController.Summary.FooterSummaryValues[1];
cxcurrencyedit3.Value:=cxcurrencyedit1.Value-cxcurrencyedit2.Value;

[freeman35]

iki öneri:
1-) "if not iBdataset1.IsEmpty then begin" kod kalabalığına gerek kalmasın.
2-)Daha önceki yazılarımda belirtmiştim, özellikle rakkam field lara db tarafında default 0.0 değerleri verin, sum alamakta performans sağladığı gibi delphi tarafında bu tip kotrollerede gerek kalmaz
kolay gele