以文本方式查看主题

-  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=74999)
--  作者：wengstars
--  发布时间：2015/9/24 10:54:00
--  循环查找
想请教一下如何在同一列中标记出相同内容，比如在同一个表中的“工号”列如何标记出有相同工号的行？
--  作者：大红袍
--  发布时间：2015/9/24 11:05:00
--  

Drawcell事件

 

e.Table.DataTable.AddUserStyle("黄色", Color.Yellow, Color.Black)
If e.Table.DataTable.Find("第一列 = \'" & e.Row("第一列") & "\' and _Identify <> " & e.Row("_Identify")) IsNot Nothing Then
    e.Style = "黄色"
End If
--  作者：wengstars
--  发布时间：2015/9/24 11:47:00
--  
我的意思是如果“工号”列有相同的工号，那么在这些相同工号对应“查错标志”列的对应行中标记“待查”，不然就为空，这样就可以通过筛选功能进行一一核查，是否应该将其合并其他相关的数据。
--  作者：大红袍
--  发布时间：2015/9/24 12:10:00
--  
For Each dr As DataRow In DataTables("表A").Datarows
    If DataTables("表A").Find("第一列 = \'" & dr("第一列") & "\' and _Identify <> " & dr("_Identify")) IsNot Nothing Then
        dr("第二列") = "黄色"
    Else
        dr("第二列")= Nothing
    End If
   
Next