主题：条件删除

表A与表B 都有 单号 编号  名称 的列

表A里存在的行，如果表B都存在，那么删除表B等于表A的行. 

表A里存在的行，如果表B有一行不存在，那么返回并提示不能删除.

 

For Each r2 As DataRow In DataTables("表a").DataRows

     For Each dr2 As DataRow In DataTables("表b").Select("单号 = '" & r2("单号") & "' And 编号 = '" & r2("编号") & "' And 名称 = '" & r2("名称") & "'")
        If dr2 IsNot Nothing Then
             dr2.Delete 
        Else
             MessageBox.Show("不能删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
             Return '那么返回
        End If
    Next
Next

 

调试N次都不行，求助

谢谢！