主题：请老师帮我下，学习下

 如下代码

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表D").Find("单位名称 = '" & dr("单位名称") & "' and 组名称 = '" & dr("组名称") & "' and 姓名 = '" & dr("女方姓名") & "'")
    If fdr IsNot Nothing Then
        fdr("变动日期") = dr("结婚日期")
    End If
Next