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

Dim zxm As String = DataTables("单位注册").Datarows(0)("注册镇乡") '定义镇乡单位名

'删除不符合的行
For Each dr4 As DataRow In DataTables("A统1").DataRows
    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
Next