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

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

كود :

  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