tabloda toplam borç hesaplama

[edafdn]

(ekte sorunun görseli mevcut)
toplam borcu hesaplayan bir program yaptım ancak hocamızın istediği
kullanıcı dbgrid deki adet sayısını veya fiyatı değiştirdiğinde toplam borç sayısınında değişmesi
Bununla ilgili yardımcı olur musunuz?

yazdığım kodlar:
procedure TForm1.Button3Click(Sender: TObject);
var
toplam,fyt,adt:real;
begin

adotable1.First;
toplam := 0;
repeat
toplam := toplam + adotable1.FieldByName('borç').AsCurrency;
adotable1.next;
until(adotable1.Eof) ;
label1.Caption:= FloatToStr(toplam);

[ertank]

Merhaba,
Ek dosya gözükmeyecek kadar küçük.
Eğer AdoTable1 bir DBGrid ile gösteriliyor ve kullanıcı bu dbgrid içine bilgi giriyor ise yazdığınız kodlarda ciddi bir hata gözükmüyor.
Sadece ilk kayıtta değişiklik yapılması ihtimaline karşı AdoTable1.Statıs <> dsBrowse koşulunda AdoTable1.Post komutunu çalıştırabilrsiniz.