主题：如何实现表表比对输出不同到临时表？

Dim dt2 As DataTable = DataTables("项目表")
Dim dt1 As DataTable = DataTables("订单表")
Dim dt3 As DataTable = DataTables("对比表")

For Each dr As DataRow In dt2.Select("", "编号")
    Dim filter As String = "项目编号 like '%" & dr("编号") & "'"
    Dim fdr As DataRow = dt1.Find(filter)
    If fdr Is Nothing Then
        Dim ndr As DataRow = dt3.AddNew
        ndr("pnumber") = dr("编号")     
       
    End If
Next