حساب مجموع حقل من grid داخل الفورم مباشرتا

[Med-01]

كيفية حاسب مجموع حقل من grid مباشرتا فوق الفورم ؟ الصورة تضوح

  Image sans titre.jpg (الحجم : 22.33 ك ب / التحميلات : 132)
متل

  cekonveut.jpg (الحجم : 33.21 ك ب / التحميلات : 118)

[King SofT]

وعليكم السلام

كود :

var Sum:Real; begin Table1.First; Sum:=0; while not Table1.Eof do begin Sum:=Sum+Table1.FieldValues['HT']; Table1.Next; end; Label1.Caption:=FloatToStr(Sum); end;

[Med-01]

لم يعمل الكود ؟

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
أخي الكود يعمل بشكل عادي، جرب ضع الكود في الحدث Table1AfterPost الخاص بالجدول حيث يقوم بإعادة الحساب كلما قمت بالحفظ في الجدول.
بالتوفيق

[Med-01]

يظهر خطا عند التنفيد ؟؟؟

[makhlouf]

يظهر خطا عند التنفيد ؟؟؟

السلام عليكم و رحمة الله تعالى و بركاته:
ما هو الخطأ؟
أرفقلنا صورة عن الخطأ حتى نتمكن من مساعدتك
بالتوفيق

[King SofT]

الخطا في نوع الحقل th تاكد من نوعه

[Med-01]

السلام عليكم و رحمة الله تعالى و بركاته:
ما هو الخطأ؟
أرفقلنا صورة عن الخطأ حتى نتمكن من مساعدتك
بالتوفيق

  fgf.jpg (الحجم : 37.75 ك ب / التحميلات : 82)




  hjh.jpg (الحجم : 29.35 ك ب / التحميلات : 78)

في البداية الكود لم يشتغل لا ني لم اتسخ المتغير var :eek: والان بعد التصحيح لم يشتغل الكود :confused:

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
أخي جرب هذا الكود لعله يحل المشكل

var Sum:Real;
begin
Table1.First; Sum:=0;
while not Table1.Eof do
begin
Sum:=Sum+strtofloat(Table1.fieldbyname('HT').asstring);
Table1.Next;
end;
Label2.Caption:=FloatToStr(Sum);

بالتوفيق

[Med-01]

يظهر خطا بسبب asstr ing