以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  相同数字用同颜色显示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48130)

--  作者:aygp
--  发布时间:2014/3/23 19:50:00
--  相同数字用同颜色显示
在表A“第一列”内信息相同时(前提条件),如果 “第二列”内的信息也相同(不与 “第一列”内信息相同 ),则  “第二列”内 相同的信息用红颜色显示,请问代码如何编写?
--  作者:lsy
--  发布时间:2014/3/23 20:35:00
--  

本例两列都是数值型。

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

[此贴子已经被作者于2014-3-23 20:47:25编辑过]

--  作者:y2287958
--  发布时间:2014/3/23 20:36:00
--  
http://www.foxtable.com/help/topics/0656.htm
看看这里能否有帮助?

--  作者:aygp
--  发布时间:2014/3/23 21:31:00
--  

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

 


图片点击可在新窗口打开查看此主题相关图片如下:截图03.png
图片点击可在新窗口打开查看

--  作者:y2287958
--  发布时间:2014/3/23 22:15:00
--  
看来要增加一列来标记一下了
--  作者:aygp
--  发布时间:2014/3/24 8:24:00
--  
跳远项目有二个4.5 ,应该显示为红色。而铅球项目只有一个4.5,则不显示红色(因项目不同)。“运动项目”列是字符型,“成绩”列是单精小数。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:改变相同成绩颜色.rar



--  作者:lsy
--  发布时间:2014/3/24 9:17:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:改变相同成绩颜色.rar


--  作者:aygp
--  发布时间:2014/3/24 9:59:00
--  
谢谢lsy老师!