条件删除 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 条件删除

共有9769人关注过本帖树形打印复制链接主题：条件删除

wilson

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

条件删除

Post By：2012/11/14 13:01:00 [显示全部帖子]

表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次都不行，求助

谢谢！