السلام عليكم و رحمة الله تعالى و بركاته:
أخي الكود يعمل بشكل عادي، جرب ضع الكود في الحدث Table1AfterPost الخاص بالجدول حيث يقوم بإعادة الحساب كلما قمت بالحفظ في الجدول.
بالتوفيق
med-01 كتب :يظهر خطا عند التنفيد ؟؟؟
السلام عليكم و رحمة الله تعالى و بركاته:
ما هو الخطأ؟
أرفقلنا صورة عن الخطأ حتى نتمكن من مساعدتك
بالتوفيق
الخطا في نوع الحقل th تاكد من نوعه
makhlouf كتب :السلام عليكم و رحمة الله تعالى و بركاته:
ما هو الخطأ؟
أرفقلنا صورة عن الخطأ حتى نتمكن من مساعدتك
بالتوفيق
[
attachment=2662]
[
attachment=2661]
في البداية الكود لم يشتغل لا ني لم اتسخ المتغير var :eek: والان بعد التصحيح لم يشتغل الكود :confused:
السلام عليكم و رحمة الله تعالى و بركاته:
أخي جرب هذا الكود لعله يحل المشكل
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);
بالتوفيق