DBGridde Hesaplama Yapmak

[umutlu]

Arkadaşlar, iki tarih arasında sorguladığım veriler dbGride geliyor.Ben buradaki bir alanda bulunan verilerin toplamını dbgridin en son satırına veya başka bir alana yazdırmak istiyoru.Lütfen bana yardımcı olur musunuz?Selamlar..

[HBV]

Slm..DBGriddeki söz konusu alanın toplamını Bir label'e veya başka bir bileşene aşağıdaki kod la alabilirsin.(Veritabanını yazmamışsınız kod Firebird'e göre düzenlenmiştir.).(VARCHAR alan da sayıları toplar,verileri toplayacaksan "sum" olan yer "count" olacak).

Kod: Tümünü seç

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
 topla:AnsiString;
begin
 topla:='select sum(SUTUN) as TOP1 FROM TABLE1';
 with IBQuery1 do
 begin
  close;
  sql.clear;
  sql.add(topla);
  Open;
 end;
 Label1.Caption := IntToStr(IBQuery1.FieldByName('TOP1').AsInteger);
end;