主题：相同数字用同颜色显示

本例两列都是数值型。

e.Table.DataTable.AddUserStyle("两列相同",Color.Red,Color.Black)
If e.Col.Name = "第二列" Then
    Dim dr As DataRow = e.Table.DataTable.Find("第一列 = " & e.Row("第一列") & " And 第一列 <> " & e.Row("第二列") & " And 第二列 <> " & e.Row("第一列") & " And 第二列 = " & e.Row("第二列") & " And _Identify <> " & e.Row.DataRow("_Identify"))
    If dr IsNot Nothing Then
        e.Style = "两列相同"
    End If
End If