حساب مجموع عمود Dbgrid

[مبرمج مبتدأ]

السلام عليكم و رحمة الله و بركاته

أخواني كيف أقوم بعملية حساب مجموع عمود في الدلفي و عرض النتيجة في edit


ملاحظة: استعنت بالبحث و لم أصل لنتيجة

و شكرا

[hallal02]

procedure TForm1.Button1Click(Sender: TObject);

var Majmou3: Currency;
RecordPlace: TBookmark ;
begin
(* Majmoo3 *)
RecordPlace := table1.GetBookmark;
Majmou3:=0;
table1.Active:=true;
table1.First;
while not table1.Eof Do
begin
Majmou3:= Majmou3+table1.FieldByName('Qut').AsCurrency;
table1.Next;
end;
edit1.text:=CurrToStr(Majmou3);
end;

end.

[مبرمج مبتدأ]

كود :

[/align] [align=center] procedure TForm1.Button1Click(Sender: TObject); var Majmou3: Currency; RecordPlace: TBookmark ; begin (* Majmoo3 *) RecordPlace := table1.GetBookmark; Majmou3:=0; table1.Active:=true; table1.First; while not table1.Eof Do begin Majmou3:= Majmou3+table1.FieldByName('Qut').AsCurrency; table1.Next; end; edit1.text:=CurrToStr(Majmou3); end; end. [/align] [align=center]

سأجرب جزاك الله خيرا

[مبرمج مبتدأ]

جزاك الله خيرا أخي

كود :

var majmou3 : real ; begin (* Majmoo3 *) Majmou3:=0; abstable3.Active:=true; abstable3.First; while not abstable3.Eof Do begin Majmou3:= Majmou3+abstable3.FieldValues ['qnt']; abstable3.Next; end; edit6.text:=CurrToStr(Majmou3); end;