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

袍姐！有点不对。我的思路是如果我表B中判断列打钩后表示选中该编号标记红色，取消后恢复！我现在难点是在表B中找不到表A的值。

单独做一个按钮执行代码

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