25-12-17, 12:15 AM
For i = 0 To DataGridView1.Rows.Count - 1
For j = 2 To DataGridView1.Columns.Count - 1
Dim m As Integer = DataGridView1.Rows(i).Cells(j).Value
Dim a As String
If m >= 135 Then
a = "ممتاز"
DataGridView1.Rows(i).Cells(j).Value.ToString = a
MsgBox(a)
ElseIf m >= 120 Then
a = "جيد جدا"
DataGridView1.Rows(i).Cells(j).Value.ToString = a
'MsgBox(a)
ElseIf m >= 105 Then
a = "جيد "
a = DataGridView1.Rows(i).Cells(j).Value.ToString
'MsgBox(a)
ElseIf m >= 90 Then
a = "مقبول "
a = DataGridView1.Rows(i).Cells(j).Value.ToString
'MsgBox(a)
Else
'm < 90 Then
a = "ضعيف "
a = DataGridView1.Rows(i).Cells(j).Value.ToString
'MsgBox(a)
End If
Next
Next