الساده الكرام
السلام عليكم ورحمة وبركاته
كيف اوجد المجموع الفردي ولكلي في برنامجي المرفق ؟؟
نامل من الله ثم من الجميع التعديل على برنامجي المرفق واعادة لنا
والله يحفظكم ويرعاكم
الملفات المرفقة
نوع الملف: rar
كيف اوجد المجموع الفردي ولكلي في برنامجي المرفق ؟؟
وعليكم السلام ورحمة الله وبركاته
ضع كوماند وأكتب الكود التالي فيه
Dim mf1, mf2 As Long تعريف متغيرين يجلب قيمة الراتب والثاني قيمة العلاوة طبعاً لكل صف على حدة Text2.Text = "0" هنا في بداية الكود مسح قيمة التكست الخاص بالمجموع الكلي ليتم إحتساب المجموع الكلي '''''''''''''''''''''''''''''''''' عداد يمر على جميع الاسطر في القريد For i = 1 To grd.Rows - 1 grd.Col = 1 grd.Row = i mf1 = grd.Text الثلاث الأسطر السابقة تجلب قيمة الراتب grd.Col = 2 grd.Row = i mf2 = grd.Text الثلاث الأسطر السابقة تجلب قيمة العلاوة grd.Col = 3 grd.Row = i grd.Text = Val(mf1) + Val(mf2) هنا الثلاث الأسطر السابقة تجمع قيمة الراتب + العلاوة وتضعهم في الخلية الخاصة لكل سطر Text2.Text = Val(Text2.Text) + grd.Text هنا يضيف قيمة الخلية للتكست المجموع الكلي Next i
معاودة الجمع والإضافة حتى ينتهي من آخر صف في القريد
وهو الكود المطلوب إن شاء الله
تم تعديل هذه المشاركة بواسطة محمدvb في 3 أغسطس 2009 في 01:37
محمدvb كتب:وعليكم السلام ورحمة الله وبركاتهضع كوماند وأكتب الكود التالي فيه
Dim mf1, mf2 As Long تعريف متغيرين يجلب قيمة الراتب والثاني قيمة العلاوة طبعاً لكل صف على حدة Text2.Text = "0" هنا في بداية الكود مسح قيمة التكست الخاص بالمجموع الكلي ليتم إحتساب المجموع الكلي '''''''''''''''''''''''''''''''''' عداد يمر على جميع الاسطر في القريد For i = 1 To grd.Rows - 1 grd.Col = 1 ---------------------------------------------------------------------------------------------------------------------------------------- استاذي العزيز : محمد السلام عليكم ورحمة وبركاته ا ستاذي احب اقدم لكم جزيل الشكر والتقدير على ما تقدمه لنا من دعم فني والله يحفظكم ويرعاكم ولكم مني فائق الاحترام والتقدير تلميذك : سالم احمد grd.Row = i mf1 = grd.Text الثلاث الأسطر السابقة تجلب قيمة الراتب grd.Col = 2 grd.Row = i mf2 = grd.Text الثلاث الأسطر السابقة تجلب قيمة العلاوة grd.Col = 3 grd.Row = i grd.Text = Val(mf1) + Val(mf2) هنا الثلاث الأسطر السابقة تجمع قيمة الراتب + العلاوة وتضعهم في الخلية الخاصة لكل سطر Text2.Text = Val(Text2.Text) + grd.Text هنا يضيف قيمة الخلية للتكست المجموع الكلي Next iمعاودة الجمع والإضافة حتى ينتهي من آخر صف في القريد
وهو الكود المطلوب إن شاء الله