• 0
مبرمــج

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

سؤال

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


 


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


 


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


 


و شكرا لكم


0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 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;

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .