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

在表A“第一列”内信息相同时（前提条件），如果 “第二列”内的信息也相同（不与 “第一列”内信息相同 ），则  “第二列”内 相同的信息用红颜色显示，请问代码如何编写？

本例两列都是数值型。

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

http://www.foxtable.com/help/topics/0656.htm

跳远有二个4.5 ，应该显示为红色。而铅球有一个4.5，则不显示红色。“运动项目”列是字符型，“成绩”列是单精小数。

 

此主题相关图片如下：截图03.png

看来要增加一列来标记一下了

跳远项目有二个4.5 ，应该显示为红色。而铅球项目只有一个4.5，则不显示红色（因项目不同）。“运动项目”列是字符型，“成绩”列是单精小数。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:改变相同成绩颜色.rar

谢谢lsy老师！