主题：循环查找

想请教一下如何在同一列中标记出相同内容，比如在同一个表中的“工号”列如何标记出有相同工号的行？

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

我的意思是如果“工号”列有相同的工号，那么在这些相同工号对应“查错标志”列的对应行中标记“待查”，不然就为空，这样就可以通过筛选功能进行一一核查，是否应该将其合并其他相关的数据。

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