dbgrid hesap

[brs]

iyi akşamlar dbgrid bir kolondaki sayı toplamını alıyorum doğru sonucu almam için mutlaka dbgrid son satırı seçmem lazım bu durumu nasıl düzeltirim

procedure TForm19.Button4Click(Sender: TObject);
var i,j:integer;
sum:Real;
begin
sum:=0;
for i:=0 to Query1.RecordCount do begin
for j:=0 to DBGrid1.SelectedRows.Count-1 do
begin
if (i=DBGrid1.SelectedRows.IndexOf(DBGrid1.SelectedRows.Items[j])) then
sum:=sum+Query1.FieldByName('sayi').AsFloat;
end;
Query1.Next;
end;
Label1.Caption:=FloatToStr(sum);
end;

[xozcanx]

son olarak tabloyu Reflesh yaptırmayı deneseniz,,

[brs]

son olarak tabloyu Reflesh yaptırmayı deneseniz,,

Denedim olmadı.

[yusuf simsek]

hem query hem dbgrid ile uğraşmak yerine , dbgride SAYI alanını ekleyip sadece dbgrid üzerinden saymak daha sağlıklı sonuç verecektir...

for i := 0 to DBGrid1.SelectedRecordCount -1 do
begin
sum:=sum+DBGrid1.SelectedRows.Values[ DBGrid1SEC.Index ];
end;

[esistem]

Kod: Tümünü seç

procedure TForm19.Button4Click(Sender: TObject);
var
sum:Real;
begin
sum:=0;
QUERY1.FIRST;
WHILE NOT Query1.EOF DO BEGIN
sum:=sum+Query1.FieldByName('sayi').AsFloat;
QUERY1.NEXT;
END;
Label1.Caption:=FloatToStr(sum);
end;