主题：[求助]数据表《员工入职更新》批量引用更新到数据表《员工信息》代码！

For Each dr As DataRow In DataTables("员工入职更新").DataRows

    If DataTables("员工信息").Find("员工编号='" & dr("员工编号") & "'") Is Nothing Then

        If dr("更新日期")= Date.Today Then

            Dim dr2 As DataRow = DataTables("员工信息").AddNew

            dr2("档案编号")=dr("档案编号")

            dr2("核算人数")=dr("核算人数")

            dr2("身份证有效期")=dr("身份证有效期")

            dr2("民族")=dr("民族")

            dr2("学历")=dr("学历")

            dr2("政治面貌")=dr("政治面貌")

            dr2("婚姻状况")=dr("婚姻状况")

            dr2("生育状况")=dr("生育状况")

        End If

    End If

Next