主题：如何遍历来源表：问题反馈与整改，如果有符合条件的数据行那就再次判断目标表：反馈问题清单 中是否有存在的数据行 如果有 那就删除，如果不存在那就新增数据行 然后并保存

先判断问题反馈与整改表中是否有符合巡察组 巡察单位  届别  轮次的数据
cmd.CommandText = "s ele ct count(*) from 问题反馈与整改 where 巡察组='" & e.Values("巡察组") & "' and  被巡单位='" & e.Values("被巡单位") & "' and 巡察届别='" & e.Values("巡察届别") & "' and 巡察轮次='" & e.Values("巡察轮次") & "'"
If cmd.ExecuteScalar > 0 Then    如果有数据
    Dim cmd1 As SQ L Command 

    cmd1.Connecti

    cmd1.CommandText = "s ele ct count(*) from 反馈问题清单 where 巡察组='" & e.Values("巡察组") & "' and  被巡单位='" & e.Values("被巡单位") & "' and 巡察届别='" & e.Values("巡察届别") & "' and 巡察轮次='" & e.Values("巡察轮次") & "'"

那就判断反馈问题清单中是否有数据，如有有 就删除对应条件的数据
    If cmd1.ExecuteScalar > 0 Then
        cmd1.CommandText = "DE LETE FROM {反馈问题清单} WHERE 巡察组='" & e.Values("巡察组") & "' and  被巡单位='" & e.Values("被巡单位") & "' and 巡察届别='" & e.Values("巡察届别") & "' and 巡察轮次='" & e.Values("巡察轮次") & "'"
        cmd1.ExecuteNonQuery()
    Else

如果没有，就把问题反馈与整改表对应条件的数据，全部写入反馈问题清单中，对应的列以cls()为准

cmd.CommandText = "s ele ct * from 问题反馈与整改 where 巡察组='" & e.Values("巡察组") & "' and  被巡单位='" & e.Values("被巡单位") & "' and 巡察届别='" & e.Values("巡察届别") & "' and 巡察轮次='" & e.Values("巡察轮次") & "'"

Dim dt As DataTable = cmd1.ExecuteReader()

    cmd1.CommandText = "s ele ct * from 反馈问题清单 where _identify is null"
        Dim dt1 As DataTable = cmd1.ExecuteReader(True)
        Dim dr1 As DataRow
        Dim cls() As String = {"巡察届别","巡察轮次","被巡单位","巡察组","问题类别","具体表现","存在问题","来源","反馈时间"} '定义列名

for each dr as datarow in dt.datarows
            dr1 = dt1.AddNew()
            dr1("反馈状态")="已反馈"
        For i As Integer = 0 To  cls.Length - 1
            dr1(cls(i))=dr(cls(i))
        Next

next

        dt1.Save
    End If
   
End If