- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 任意列数重复值筛选删除通用代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46422)
-- 发布时间：2014/2/23 12:26:00
-- 任意列数重复值筛选删除通用代码
星期五在客户处写了一段代码,筛选出多余的记录,这步很完美
然后 删除多余的记录...悲剧发生了: 条件写错了,删除了客户10多年的收费记录,更悲剧的是:自以为技术高超,事前没备份数据!
5555,当时,死的心都有了, 结果费劲九牛二虎之力,用了Log Explorer 才恢复了被误删除的数据.
惊魂稍定,想到很多狐表的初学者也经常遇到这个问题,特整理出以下代码给大家,以免重复我的悲剧
Dim str As New List (Of String)
Dim id As String
For Each r As Row In CurrentTable.Rows
If str.Contains(r("上级部门")&r("单位名称")&r("姓名")) =False Then
str.Add(r("上级部门")&r("单位名称")&r("姓名"))
id + = r("_Identify") & ","
End If
Next
CurrentTable.Filter = "_Identify not In (" & id & ")"
CurrentTable.Sort="上级部门,单位名称,姓名"
For i As Integer = CurrentTable.Rows.Count - 1 To 0 Step -1
CurrentTable.Rows(i).Delete
Next
CurrentTable.Filter = ""
-- 发布时间：2014/2/23 12:56:00
--
顶楼主。
-- 发布时间：2015/5/26 23:43:00
--
按给出的列数筛选重复值,数据库只保留一条记录,多余的会自动删除.
-- 发布时间：2021/11/3 9:43:00
-- 回复：（sloyy）任意列数重复值筛选删除通用代码
任意列数重复值筛选，不删除重复数据，将其隐藏，只保留一行不重复记录代码如何写？求老师指点！
现有数据保留还要做其他查询分析
[此贴子已经被作者于2021/11/3 9:44:21编辑过]
-- 发布时间：2021/11/3 9:53:00
--
把上面删除行的代码去掉，改为移除即可
-- 发布时间：2021/11/3 19:18:00
--
顶