老师：有两个表，其中表A是原始表，表B是要赋值的表，我想的效果是：

 
此主题相关图片如下：微信图片_20210708181732.png

可是以下代码没有达到我想要的效果：

Dim n As Integer = Tables("表A").Rows.Count  \'设置打印份数
Dim i As Integer  \'设定打印份数
    For i = 1 To n    \'打印4份
      Dim dr = Tables("表A").Current

For Each dr1 As DataRow In DataTables("表A").DataRows
    Dim dr2 As DataRow = DataTables("表B").Find("第一列 = \'" & dr("第一列") & "\'And 第二列 = \'" & dr("第二列") & "\'And 第四列 Is Null")
    If dr2 IsNot Nothing
         DataTables("表B").ReplaceFor("第四列", dr("第四列"), "第一列 = \'" & dr("第一列") & "\'And 第二列 = \'" & dr("第二列") & "\'")
         \'DataTables("表B").ReplaceFor("第五列", dr("第五列"), "第一列 = \'" & dr("第一列") & "\'And 第二列 = \'" & dr("第二列") & "\'\'And 第四列 Is Null") 
         \' DataTables("表B").ReplaceFor("第六列", dr("第六列"), "第一列 = \'" & dr("第一列") & "\'And 第二列 = \'" & dr("第二列") & "\'\'And 第四列 Is Null")
    End If
Next
    With Tables("表A")
       If  .Position = .Rows.Count - 1   \'如果是未行
\'  \'         .Position = 0                 \'返回首行
       Else
           .Position = .Position + 1     \'下移一行
       End If
     End With
Next

效果如下：

此主题相关图片如下：微信图片_20210708181953.png

请各位老师指教！

项目如下：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

谢谢各位老师费心！