[مصمم هاوي]

السلام عليكم ورحمة الله وبركاته
ورمضانكم مبارك

عندي جدول باسم (TBL_result) جعلتُ فيه ثلاث مواد فقط حتى تصل الفكرة
يتم فيه احتساب المجموع الكلي والمعدل والتقدير وإظهار عدد مواد الرسوب ثم النتيجــة النهائيــة (ناجح - راسب - مكمل)حسب الشرط
وقد حاولتُ أن اطبق الشروط كما في الاستعلام (Q_result)

المطلــوب:
هل يمكن من حضرتكم الكريمة التفضل بالتعديل على صب  (SelectAll_result) حتى يتم ظهور المطلوب بصورة صحيحة

المثال في المرفقات


  SumCells.rar (الحجم : 127.25 ك ب / التحميلات : 37)

[مصمم هاوي]

وصلت إلى 90% من الحل
وبقى احتساب عدد مواد الرســوب
الرجــاء من كان عنده كود أفضل من هذا فليتكرم بإرفاقه هنا

كود :

For i As Integer = 0 To dgv1.Rows.Count - 1
            '  المجمـوع الكلي
            dgv1.Rows(i).Cells(5).Value = (dgv1.Rows(i).Cells(2).Value + dgv1.Rows(i).Cells(3).Value) + dgv1.Rows(i).Cells(4).Value
            '  ايجاد المعدل
            dgv1.Rows(i).Cells(6).Value = (dgv1.Rows(i).Cells(5).Value / 150) * 100

            'استخراج التقدير
            Dim a As Double
            a = dgv1.Rows(i).Cells(6).Value

            If a <= 150 And a >= 130 Then
                dgv1.Rows(i).Cells(7).Value = "ممتاز"

            ElseIf a < 130 And a >= 120 Then
                dgv1.Rows(i).Cells(7).Value = "جيد جداً"

            ElseIf a < 110 And a >= 100 Then
                dgv1.Rows(i).Cells(7).Value = "جيد"

            ElseIf a < 100 And a >= 75 Then
                dgv1.Rows(i).Cells(7).Value = "مقبول"

            ElseIf a < 75 And a >= 0 Then
                dgv1.Rows(i).Cells(7).Value = "/"

            Else
            End If

            ' احتساب النتيجـــة  
            If (dgv1.Rows(i).Cells(3).Value >= 50 And (dgv1.Rows(i).Cells(4).Value >= 50 And (dgv1.Rows(i).Cells(5).Value >= 50))) Then
                dgv1.Rows(i).Cells(9).Value = "ناجح"

            Else
                dgv1.Rows(i).Cells(9).Value = "راسب"

            End If

        Next

[عبد العزيز البسكري]

رمضان مبارك إن شاء الله

كود :

  Dim Counting As Integer = 0
       For I As Integer = 0 To dgv1.Rows.Count - 1
           Counting = IIf(dgv1.Rows(I).Cells(2).Value < 50, 1, 0) + IIf(dgv1.Rows(I).Cells(3).Value < 50, 1, 0) + IIf(dgv1.Rows(I).Cells(4).Value < 50, 1, 0)
           dgv1.Rows(I).Cells(8).Value = Counting
       Next

[مصمم هاوي]

بارك الله فيك أخي العزيز على قلبي عبد العزيز
وحقيقةً توصلتُ إلى هذا الكود الذي يفي بالغرض

كود :

For i As Integer = 0 To dgv1.Rows.Count - 1

            '  المجمـوع الكلي
            dgv1.Rows(i).Cells(5).Value = (dgv1.Rows(i).Cells(2).Value + dgv1.Rows(i).Cells(3).Value) + dgv1.Rows(i).Cells(4).Value
            '  ايجاد المعدل
            dgv1.Rows(i).Cells(6).Value = (dgv1.Rows(i).Cells(5).Value / 150) * 100

            'استخراج التقدير
            Dim a As Double
            a = dgv1.Rows(i).Cells(6).Value
            If a <= 100 And a >= 95 Then
                dgv1.Rows(i).Cells(7).Value = "ممتاز"

            ElseIf a < 95 And a >= 85 Then
                dgv1.Rows(i).Cells(7).Value = "جيد جداً"

            ElseIf a < 85 And a >= 75 Then
                dgv1.Rows(i).Cells(7).Value = "جيد"

            ElseIf a < 80 And a >= 75 Then
                dgv1.Rows(i).Cells(7).Value = "مقبول"

            ElseIf a < 75 And a >= 0 Then
                dgv1.Rows(i).Cells(7).Value = "/"

            Else
            End If

            '  عدد مواد الرسوب
            dgv1.Rows(i).Cells(8).Value = If(dgv1.Rows(i).Cells(2).Value >= 50, 0, 1) + If(dgv1.Rows(i).Cells(3).Value >= 50, 0, 1) + If(dgv1.Rows(i).Cells(4).Value >= 50, 0, 1)

            If dgv1.Rows(i).Cells(8).Value = 0 Then
                dgv1.Rows(i).Cells(9).Value = "ناجح"

            ElseIf dgv1.Rows(i).Cells(8).Value < 3 Then
                dgv1.Rows(i).Cells(9).Value = "مكمل"

            ElseIf dgv1.Rows(i).Cells(8).Value > 2 Then
                dgv1.Rows(i).Cells(9).Value = "راسب"

            Else
            End If

        Next