主题：[求助]两个表对比部分数据

参考代码

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("")
    Dim fdr As DataRow = dt2.Find("任务 like '" & dr("任务").split(" ")(0) & " %'")
    If fdr Is Nothing Then
        msgbox(dr("任务"))
    Else
        If dr("工时") = fdr("工时") Then
            'msgbox(123)
        End If
    End If
Next