以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何查找重复的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69827)
--  作者：lfxxdt
--  发布时间：2015/6/11 14:37:00
--  如何查找重复的数据
在《订餐表》中，我想设置姓名重复的以红色背景体现出来，这个应该如何编写代码
--  作者：大红袍
--  发布时间：2015/6/11 14:47:00
--  

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