主题：多值多表定时搜索

 先做成一个按钮测试是否正确，再把代码拷贝计划管理里面去定时执行。

dim dt1 as datatable = datatables("表a")
Dim dt2 As DataTable = DataTables("表b")
Dim dt3 As DataTable = DataTables("表c")
For Each dr1 As DataRow In dt1.Select("")
   
    If dr1("状态").contains("已染色") = False Then
        Dim dr2 As DataRow = dt2.Find("编号 = '" & dr1("编号") & "'")
        If dr2 IsNot Nothing Then
            dr1("状态") = (dr1("状态") & ",已染色").trim(",")
        End If
    End If

    If dr1("状态").contains("已染色") = False Then
        Dim dr3 As DataRow = dt3.Find("编号 = '" & dr1("编号") & "'")
        If dr3 IsNot Nothing Then
            dr1("状态") = (dr1("状态") & ",已定型").trim(",")
        End If
    End If
Next

那就试试

For Each dr1 As DataRow In dt1.Select("明细状态 not like '%已出库%' or 明细状态 is null")