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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下段条件删除行代码为什么不执行

共有11627人关注过本帖树形打印复制链接主题：下段条件删除行代码为什么不执行

lpxjw_zyl

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

加好友

发短信

等级：小狐帖子：376 积分：4189 威望：0 精华：0 注册：2008/9/1 14:18:00

下段条件删除行代码为什么不执行 发帖心情

Post By：2010/10/11 11:31:00 [只看该作者]

Dim cmd As New SQLCommand
Dim dt As datatable
cmd.C
cmd.CommandText = "SELECT * From {学校信息}"
dt = cmd.ExecuteReader()

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

下段条件删除行代码为什么全部删除了，不按规定删除呢？

baoxyang

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

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2010/10/11 11:50:00 [只看该作者]

第一，[乡镇] <> '" & 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 & "'”

下一主题 >> << 上一主题

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