以文本方式查看主题

-  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=67944)
--  作者：xiangwei_zeng
--  发布时间：2015/5/6 22:05:00
--  [求助]
想问一有谁知道狐表能否对于重复值给予颜色标识提醒?例如有一列姓名,如果出现重复的人名则所有重复的名字都用红字显示,如果可行,那么要怎么写代码?在此先谢谢答复人了!
--  作者：大红袍
--  发布时间：2015/5/6 22:13:00
--  

 表属性 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
--  作者：xiangwei_zeng
--  发布时间：2015/5/7 21:33:00
--  
经实践可行,太感谢了!