- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]为何每执行一次只能删除一个而不能批量删除 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=54221)
-- 发布时间：2014/7/23 23:25:00
-- [求助]为何每执行一次只能删除一个而不能批量删除
DataTables("车辆违章表").ReplaceFor("_Locked",False,"")
Dim i As Integer
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
DataTables("车辆违章表").ReplaceFor("_Locked",True,"")
注：滤表中不只是一个车牌号码(如:车牌号码有A、B、C、D、E......)，车辆违章表一个车牌号有很多次违章(如A车有N次违章记录 、B车有N次违章、C车有N次违章、D车有N次违章，......)
这个代码为什么每执行一次只能删除一个，而不能批量删除
请大侠解决一下下
-- 发布时间：2014/7/23 23:30:00
--
图片
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获1.png
-- 发布时间：2014/7/24 6:09:00
--
我顶,跪求大侠帮解决
-- 发布时间：2014/7/24 6:39:00
--
让我顶起来
-- 发布时间：2014/7/24 7:17:00
--
表传上来，测试一下，看怎么修改。
-- 发布时间：2014/7/24 7:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:违法行为处理通知.table |
-- 发布时间：2014/7/24 7:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:违法行为处理通知.zip |
-- 发布时间：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
-- 发布时间：2014/7/24 16:29:00
--
具体如何修改,请帮忙改一下下,谢谢大侠!
-- 发布时间：2014/7/24 16:32:00
--
For i = DataTables("滤表").DataRows.Count-1 To 0 Step -1
Dim dr As DataRow = DataTables("滤表").DataRows(i)