主题：关联问题

Dim drs As List(of DataRow)

drs = DataTables("表A").Select("nditemnumber = 'MOQ' ")

For Each dr As DataRow In drs
   
    If dr.IsNull("datetoforwarder") Then
        Dim fdr As DataRow = DataTables("表B").Find("customerpo = '" & dr("customerpo") & "'")
        If fdr IsNot Nothing Then
            dr("datetoforwarder") = fdr("datetoforwarder")
        End If
    End If
   
Next