主题：请教老师！附件中的编码怎么在另一个表中找到，然后找到的标记红色！

单独做一个按钮执行代码

Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In DataTables("表B").datarows
    Dim filter As String = "1=2"
    For Each dc As DataCol In dt.DataCols
        filter &= " or " & dc.name & "='" & dr("编号") & "'"
    Next
    Dim fdr As DataRow = dt.find(filter)
   
    dr("是否存在") = fdr IsNot Nothing
Next