Quyer 'deki toplamı aktarmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
esraakarslan
Üye
Mesajlar: 28
Kayıt: 30 Haz 2004 02:24

Quyer 'deki toplamı aktarmak

Mesaj gönderen esraakarslan »

Arkadaşlar sorunum şu query'deki toplam alanını baştan sona arayacak ve eğer kayıtlar arasında boş satır varsa mesela label da borçlu yazacak eğer toplam sütünunda boş alan yoksa alacaklı yazak. Böyle bir olay için nasıl bir kod yazmam gerekli lütfen bana yardım edin... :(
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

Dataset kısmında Calculated bir alan oluştur örneğin DURUM olabilir.
OnCalcFields eventinde.

Kod: Tümünü seç

if Table1BORC.Asinteger > 0 ' then 
        Table1DURUM.AsString:= 'BORCLU'
Else 
if Table1ALACAK.Asinteger > 0 ' then 
        Table1DURUM.AsString:= 'ALACAKLI';
Bu tip bir kod yazman lazım

Kolay Gelsin....

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
bgoktas
Kıdemli Üye
Mesajlar: 769
Kayıt: 27 Nis 2004 10:32
Konum: istanbul

Mesaj gönderen bgoktas »

Ben sorunu net olarak anlayamadım. Fakat bir alandaki boş alanı
buldurup ona göre sorgu çekmek istiyorsanız.

Kod: Tümünü seç

select * from table where toplam is null
yada

Kod: Tümünü seç

select * from table where toplam=0


gibi birşey ile çıkan sonucun recordcountuna göre labele ilgili sonuç yazdırılabilinir.
Cevapla