[VB.NET] تحديد الاسماء المكرره - نسخة قابلة للطباعة

كود :
Sub HighlightDupes(ByRef dgv As DataGridView, ByVal col_id As Integer)



        Dim dgvCol As DataGridViewColumn = DataGridView1.Columns("colname")

        dgv.Sort(dgvCol, System.ComponentModel.ListSortDirection.Ascending)



        Dim numRows As Integer = dgv.Rows.Count() ''// or dgv.SelectedRows.Count() for the selected rows

        Dim flagFirstRow As Boolean = True

        Dim tempStr As String = ""



        For Each RW As DataGridViewRow In dgv.Rows ''// or dgv.SelectedRows for the selected rows

            On Error Resume Next

            If Not (flagFirstRow) Then

                If (RW.Cells("colname").Value.ToString() = tempStr) Then



                    ''// RW.Cells(col_id).Style.BackColor = Color.LightGreen

                    ''// RW.Cells(col_id).Style.BackColor = Color.White



                    RW.Cells("colname").Selected = True

                    dgv.CurrentCell.Style.BackColor = Color.LightGreen

                    dgv.CurrentCell.Style.ForeColor = Color.White



                    '  MsgBox("Dupe found: " & tempStr)



                End If



            End If

            tempStr = RW.Cells("colname").Value.ToString()

            flagFirstRow = False

        Next









    End Sub