تحديد الاعلى قيمة في الداتا جرد

عملت لك Function لتلوين الخلية :

 Private Sub ColorizeCells(ByVal fieldName As String, ByVal myColor As Color)
        Try

            If DataGridView1.RowCount > 0 Then

                For Each dr As DataGridViewRow In DataGridView1.Rows

                    If dr.Cells(fieldName).Value <> "" Then
                        Dim nValue As Integer = CInt(dr.Cells(fieldName).Value)
                        If nValue < 50 Then
                            dr.Cells(fieldName).Style.BackColor = myColor
                        End If
                    End If

                Next

            End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        End Try
    End Sub

طريقة تنفيذ الدالة : تأخذ الدالة بارميتران الأول اسم الحقل المطلوب حسابه ، والثاني اللون الذي تريد أن تلون به خلفية الخلية :

ColorizeCells("fieldName", Color.Red)

يمكنك وضع كود التنفيذ أعلاه بعد ملء أداة الـ Datagridview مباشرة .

****

***

**

*

ممتاز  يا بطل اشكرك ربي يوفقك فعال مليون على مليون