主题：下段条件删除行代码为什么不执行

第一，[乡镇] <>  '" & zxm & "'") 此代码中变量，是从哪里取得的。上述代码找不到。

第二，

    Dim dr5 As DataRow = dt.Find("[校名] = '" & dr4("单位") & "' And [乡镇] <>  '" & zxm & "'")
    Dim dr17 As DataRow = dt.Find("[校名] <>'" & dr4("单位") & "'")
    If dr5 isnot Nothing Then ‘删除单位在dt 表中能够找到，可不属于规定镇乡的学校
        dr4.Delete()
    Elseif dr4.isnull("单位") Then ’删除表中的空行
        dr4.Delete()
    Elseif dr17 isnot Nothing Then ‘删除单位在dt 表中不能够找到

        dr4.Delete()
    End If
最好使用“delete from {学校信息} where [校名] <> "'& dr4("单位") & '" And [乡镇] <>  '" & zxm & "'”