以文本方式查看主题

-  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=39811)
--  作者：czy66ds
--  发布时间：2013/9/2 11:58:00
--  如何用代码删除当前表筛选出的重复值
我已用代码CurrentTable.RepeatFilter("商品编码",2)筛选除了重复值，如何编写代码删除这些重复值行？
--  作者：czy66ds
--  发布时间：2013/9/2 12:01:00
--  
自己顶一下
--  作者：Bin
--  发布时间：2013/9/2 12:01:00
--  
只能循环所有行,利用 datatables("XX").select 查找出重复的行然后删除.
--  作者：程兴刚
--  发布时间：2013/9/2 12:11:00
--  

Tables("表A").RepeatFilter("第一列", 2)
For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1
    Tables("表A").Rows(i).Delete
Next
Tables("表A").Filter = ""
--  作者：Bin
--  发布时间：2013/9/2 12:11:00
--  
以下是引用程兴刚在2013-9-2 12:11:00的发言：

Tables("表A").RepeatFilter("第一列", 2)
For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1
    Tables("表A").Rows(i).Delete
Next
Tables("表A").Filter = ""

好办法
--  作者：czy66ds
--  发布时间：2013/9/2 12:36:00
--  

谢谢回复。

我是这样：

CurrentTable.RepeatFilter("商品编码",2)
For Each r As Row In CurrentTable.Rows
r.Delete()
Next

奇怪的是：记录一次删不尽。

这是为什么？
--  作者：Bin
--  发布时间：2013/9/2 12:38:00
--  
不能这么做,原因是你删除一行后 行的总数就不一样了.一定要像老程那么做才可以.
--  作者：czy66ds
--  发布时间：2013/9/2 13:01:00
--  
明白了