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

如何遍历来源表：问题反馈与整改，如果有符合条件的数据行

那就再次判断目标表：反馈问题清单  中是否有存在的数据行  如果有  那就删除，如果不存在那就新增数据行 然后并保存

当前代码如下：【没有正常运行完毕，麻烦老师帮忙看看！】

Dim cmd As SQ LCo mmand
cmd.Connecti
cmd.CommandText = "s ele ct * 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 * 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
        Dim dt1 As DataTable = cmd1.ExecuteReader(True)
        Dim dr1 As DataRow
        Dim cls() As String = {"巡察届别","巡察轮次","被巡单位","巡察组","问题类别","具体表现","存在问题","来源","反馈时间","反馈状态"} '定义列名
        For i As Integer = 0 To  cls.Length - 1
            dr1 = dt1.AddNew()
            dr1(i)=cls(i)
            dr1("反馈状态")="已反馈"
        Next

        dt1.Save
    End If
   
End If