Foxtable(狐表)用户栏目专家坐堂 → [求助]为何每执行一次只能删除一个而不能批量删除


  共有3851人关注过本帖树形打印复制链接

主题:[求助]为何每执行一次只能删除一个而不能批量删除

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/7/24 7:17:00 [显示全部帖子]

表传上来,测试一下,看怎么修改。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/7/24 8:28:00 [显示全部帖子]

两张不同的表,又没用_Identify关联,删除条件与_Identify何干?

 

For i  = DataTables("滤表").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("滤表").DataRows(i)
    Dim dr2 As DataRow = DataTables("车辆违章表").Find("车辆基本情况_车牌号码='" & dr("车牌号码") & "' and 车辆基本情况_车牌颜色='" & dr("车牌颜色") & "' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next


 回到顶部