Private Sub DataGridView1_DataBindingComplete(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles DataGridView1.DataBindingComplete
For Each dr As DataGridViewRow In DataGridView1.Rows
Select Case dr.Cells("ESTATUS").Value
Case "ACTIVO"
'DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.GreenYellow
'DataGridView1.RowsDefaultCellStyle.BackColor = Color.GreenYellow
DataGridView1.Columns("ESTATUS").DefaultCellStyle.BackColor = Color.GreenYellow
Case "DUPLICADO"
DataGridView1.Columns("ESTATUS").DefaultCellStyle.BackColor = Color.Red
'DataGridView1.RowsDefaultCellStyle.BackColor = Color.Red
End Select
Next
End Sub
|