主题：求教：赋值问题

老师：有两个表，其中表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

 

谢谢各位老师费心！

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

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