[求助]如何找出某个字段的值重复，并把它多余的打勾，再删除？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何找出某个字段的值重复，并把它多余的打勾，再删除？

共有2010人关注过本帖树形打印复制链接主题：[求助]如何找出某个字段的值重复，并把它多余的打勾，再删除？

蓝才文百

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：2486 威望：0 精华：0 注册：2015/1/31 23:19:00

[求助]如何找出某个字段的值重复，并把它多余的打勾，再删除？ 发帖心情

Post By：2017/3/7 11:47:00 [显示全部帖子]

表中有个“货号”字段，许多值是重复导入，现在要把重复多余的值标识出来并勾选，然后剔除。

不过，重复的货号，至少要保留一个，不能都删除了。

求助，用代码如何写？

非常感谢！

蓝才文百

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：2486 威望：0 精华：0 注册：2015/1/31 23:19:00

Post By：2017/3/7 14:35:00 [显示全部帖子]

谢谢楼上，不行呢

蓝才文百

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：2486 威望：0 精华：0 注册：2015/1/31 23:19:00

Post By：2017/3/7 15:11:00 [显示全部帖子]

自己用笨办法实现了，效率不行，大家看看，有什么企图更好办法？

Dim tb As WinForm.Table = e.Form.Controls("Table1")
tb.Table.Sort = F1

Dim hhs As List(Of String) = DataTables(TN_SampleList).GetValues(F1)
Dim iTag As Integer

For Each hh As String In hhs

itag=0
For Each r As Row In tb.Table.Rows
If r(F1)=hh Then
If itag<>0 Then r.Checked = True
itag=itag+1
End If
Next
Next