表属性 Drawcell事件,代码
e.Table.DataTable.AddUserStyle("红色", Color.Red, Color.Black)
If e.Col.Name = "第一列" Then
Dim fdr As DataRow = e.Table.DataTable.Find("第一列 = '" & e.Row(e.Col.Name) & "' and _Identify <> " & e.Row("_Identify"))
If fdr IsNot Nothing Then
e.Style = "红色"
End If
End If