Gridde Bir Field'daki Rakamları Toplamak

[Trial_Cooder]

Miktar Field'daki Alt Alta Olan Satırdaki Rakamları Toplamak İstiyorum Nasıl Yaparım ?

[deltas]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
a,i,j,b : integer;
begin
 a:= 0;
 j:=stringgrid1.rowCount;
 i:=0;
  for b:=0     to j-1 do
  begin
  a:=a+strtoint(stringgrid1.cells[i,b]);
  label1.Caption:= inttostr(a);
  end    ;
  label1.Caption:= inttostr(a);
end;

[Trial_Cooder]

Eyvallah

[Trial_Cooder]

da Bunun DBISAMDBGrid Olanı Varmı, Bu Verdiğin Kod Uymuyor Ve Bu Verdiğin Grid Manuel, DataSource'a Bile Bağlanmıyor ?

[kadirkurtoglu]

ayrı bir query bileşeni koyun formunuza

Kod: Tümünü seç

select sum(MIKTAR) as MIKTAR_TOP from TABLO

şeklinde istediğiniz toplamı elde edebilirsiniz...