+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حساب مجموع حقل من grid داخل الفورم مباشرتا (/showthread.php?tid=5574)
الصفحات:
1
2
حساب مجموع حقل من grid داخل الفورم مباشرتا - Med-01 - 20-09-2013
كيفية حاسب مجموع حقل من grid مباشرتا فوق الفورم ؟ الصورة تضوح
Image sans titre.jpg (الحجم : 22.33 ك ب / التحميلات : 132)
متل
cekonveut.jpg (الحجم : 33.21 ك ب / التحميلات : 118)
حساب مجموع حقل من grid داخل الفورم مباشرتا - King SofT - 22-09-2013
وعليكم السلام
كود :
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;حساب مجموع حقل من grid داخل الفورم مباشرتا - Med-01 - 29-09-2013
لم يعمل الكود ؟
حساب مجموع حقل من grid داخل الفورم مباشرتا - makhlouf - 30-09-2013
السلام عليكم و رحمة الله تعالى و بركاته:
أخي الكود يعمل بشكل عادي، جرب ضع الكود في الحدث Table1AfterPost الخاص بالجدول حيث يقوم بإعادة الحساب كلما قمت بالحفظ في الجدول.
بالتوفيق
حساب مجموع حقل من grid داخل الفورم مباشرتا - Med-01 - 30-09-2013
يظهر خطا عند التنفيد ؟؟؟
حساب مجموع حقل من grid داخل الفورم مباشرتا - makhlouf - 01-10-2013
med-01 كتب :يظهر خطا عند التنفيد ؟؟؟
السلام عليكم و رحمة الله تعالى و بركاته:
ما هو الخطأ؟
أرفقلنا صورة عن الخطأ حتى نتمكن من مساعدتك
بالتوفيق
حساب مجموع حقل من grid داخل الفورم مباشرتا - King SofT - 02-10-2013
الخطا في نوع الحقل th تاكد من نوعه
حساب مجموع حقل من grid داخل الفورم مباشرتا - Med-01 - 02-10-2013
makhlouf كتب :السلام عليكم و رحمة الله تعالى و بركاته:
ما هو الخطأ؟
أرفقلنا صورة عن الخطأ حتى نتمكن من مساعدتك
بالتوفيق
fgf.jpg (الحجم : 37.75 ك ب / التحميلات : 82)
hjh.jpg (الحجم : 29.35 ك ب / التحميلات : 78)
في البداية الكود لم يشتغل لا ني لم اتسخ المتغير var :eek: والان بعد التصحيح لم يشتغل الكود :confused:
حساب مجموع حقل من grid داخل الفورم مباشرتا - makhlouf - 03-10-2013
السلام عليكم و رحمة الله تعالى و بركاته:
أخي جرب هذا الكود لعله يحل المشكل
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);
بالتوفيق
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);
حساب مجموع حقل من grid داخل الفورم مباشرتا - Med-01 - 04-10-2013
يظهر خطا بسبب asstr ing