أولا ضع edit1
ثم button
وعند الضغط على الزر button ضع هذا الكود
كود :
var Majmou3: Currency;
RecordPlace: TBookmark ;
begin
(* Majmoo3 *)
RecordPlace := adotable1.GetBookmark;
Majmou3:=0;
adotable1.Active:=true;
adotable1.First;
while not adotable1.Eof Do
begin
Majmou3:= Majmou3+adotable1.FieldByName('Somme').AsCurrency;
adotable1.Next;
end;
edit1.text:=CurrToStr(Majmou3);
end;
somme هو اسم العمود الذي تريد جمعه
*****سبحان الله وبحمده***** سبحان الله العظيم*****
كل من 1 user says قال شكرا ل ع الحليم على المشاركة المفيدة1 user says Thank You to ع الحليم for this post • kito
هل بالامكان جمع عمود dbgrid مستقل
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
