[elgokr]

الان الصورة وضحت كاملاً

كان دائماً يعطى الاجمالى 6 و 3 حيث ليس لديك اى بيانات فى اى خلايا

والسبب يرجع هنا لانك مفعل الاضافة فى الداتا جريد فستجد بالنهاية الداتا جريد

صف محصص لاضافة بيان جديد والتى تحتوى على قيمة وهمية لذلك كان يتم جلبها كا مجموع

ولتفادى ذلك دون تعطيل الاضافة تم تحويل السطر التالى

كود :

For i As Integer = 0 To DataGridView1.RowCount - 1

ليصبح السطر بهذا الشكل

كود :

For i As Integer = 0 To DataGridView1.RowCount - 2

ولتجنباً ايضاً لاى مشكلة اخرى تم تغيير كوط شرط التحقق الى التالى

كود :

               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If TypeOf DataGridView1.Rows(i).Cells(ii).Value Is DBNull = False Then
                   count1 += 1
               End If

وبما انك بتستخدم TextBox2 فى امور اخرى

تم تغيير هذا السطر

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

ليصبح

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

السورس + برنامج للاختبار الكود مرفق

بعد اتمام جميع التعديلات وبعض اللمسات 

فى عرض المجموع فى التصميم

وكما وضحت مسبقاً ان ما تطلبه بسيط جداً

ولكن كل ما يحتاج اليه هو التركيز فقط ويبدو بسبب الملل فى كثرة تجربة الاكواد

اصبحت فاقد الامل بان لا وجود لحل لاحظ التعديل فى السورس وبين الاكواد التى قمت بوضعها جميعا

تحياتى لك

وتمنياتى لك التوفيق