A B yellow C C C D yellow D yellow E F yellow F yellow G
For NRow = 0 To DGV_Efatura.RowCount - 1 R1 = .Rows(NRow).Cells(2).Value() If NRow < DGV_Efatura.RowCount - 1 Then R2 = .Rows(NRow + 1).Cells(2).Value() Else R2 = "" End If If R1 = R2 Then .Rows(NRow).DefaultCellStyle.BackColor = Color.yellow next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)