[kebboud]

(19-08-18, 09:54 PM)elgokr كتب :

فرحتك كما هخى اخى الفاضل

فقط استبدل الكود الذى بداخل الزر

بالكود التالى

كود :

       Dim count1, count2 As Integer

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الاختبار الاول حتى العمود الاختبار السادس
       For ii As Integer = 2 To 7
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count1 += 1
           End If
       Next

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الامتحان الأول حتى العمود الأمتحان الثالث
       For ii As Integer = 8 To 10
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count2 += 1
           End If
       Next

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

وبكده سيعرض الاجمالى للطالب الواحد لحب المحدد

تحياتى لك

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

يا سبحان الله العظيم
و الله يعجز لساني عن شكرك يا صديقي و يا استاذي 
كم انت عظيم
اكتملت الفرحة ما شاء الله