DBGRID içinde listenen alanların toplamını almak

[emrekilinc1984]

Merhaba arkadaşlar dbgrid içinde listelediğim verilerin genel toplamını nasıl alabilirim bilgisi olan varsa lütfen yardımcı olsun.

[carsoft]

Gridden değilde Queryden yaparsanız daha hızlı olur

Kod: Tümünü seç

procedure  TFrmTahsAl.BakiyeHesapla;
var
    qryBakiyeDurum : TADOQuery;
begin
        qryBakiyeDurum:=TADOQuery.Create(Self);
        qryBakiyeDurum.Connection:= DM1.conETS;
        qryBakiyeDurum.close;
        qryBakiyeDurum.SQL.clear;
        qryBakiyeDurum.SQL.Add('SELECT (Sum(Borc)-Sum(Alacak)) AS Bakiye  ');
        qryBakiyeDurum.SQL.Add('FROM Hesaplar ');
        qryBakiyeDurum.SQL.Add('Where = Kriter ');
       qryBakiyeDurum.filtered := True;
        qryBakiyeDurum.Open;
      
          Bakiyesi.Text := qryBakiyeDurum.fieldbyname('Bakiye').AsString;
        qryBakiyeDurum.Free;
end;