星期五在客户处写了一段代码,筛选出多余的记录,这步很完美
然后 删除多余的记录...悲剧发生了: 条件写错了,删除了客户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 = ""
加好友 
发短信
Post By：2014/2/23 12:26:00 [显示全部帖子]
