حساب عمود في Dbgrid و إظهار النتيجة في Edit

[مبرمــج 0]

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

 

ما هي الطريقة لعمل حساب مجموع عمود في الـ Dbgrid و جعله يتغير بتغير أي قيمة في الحقل

 

و عرض النتيجة في Edit

 

و شكرا لكم

[shalwan 0]

اخي اين الموضوع المعدل منك

لاستطيع مساعدتك

[khalmoh1971 0]

تفضل اخى الفاضل

 

procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet);
var
  bm: TBookmark;
  Total: real;
begin
  bm := IBDataSet1.GetBookmark;
  IBDataSet1.DisableControls;
  try
    Total := 0.0;
    IBDataSet1.First;
    while not IBDataSet1.Eof do
    begin
      Total := Total + IBDataSet1COST.AsCurrency;
      IBDataSet1.Next;
    end;
  //   Total:= format
    Edit1.Text := (FormatFloat('0.000  جنية', Total))   ;
  finally
    IBDataSet1.GotoBookmark(bm);
    IBDataSet1.EnableControls;
  end;