我想要在一个表中查找编号重复的行,即只要某行的 编号 在表中有两个以上,就查找出来.我写的代码执行效率很低(我是用compute逐行统计的,需要很长时间),求一个效率高的代码.

    我的要求举例:若表中总共有6行数据

此主题相关图片如下：临时表.jpg

则我想查找出来的结果共4行,即:显示第1行,第3行,第5行,第6行.

我没看明白这个命令是怎么用的.

估计不行吧,我要的不是要查询完全相同的重复的行,我是要查询指定列有重复值的行.

正是你要的，不妨你试试看：选定你指定的列，执行2楼代码····

查找重覆行:

Dim Index As Integer
Dim drss As List(Of DataRow)
drss = DataTables("导入订单").Select("[零件代号]=\'" & Tables("导入订单").current("零件代号") & "\'")
For Each dr As DataRow In drss
    Index= Tables("导入订单").FindRow(dr)
    If Index > -1 Then
        Tables("导入订单").Position = Index
            MessageBox.show("出现" & dr("零件代号") & "在" & Index & "行")
    End If
Next

保留一条数据,其余重覆全部删除

Dim t As Table =  Tables("导入订单")
t.Select(t.Rowsel,t.cols("零件代号").Index)
syscmd.Filter.ShowRedundantValues
For i As Integer = t.Rows.Count -1 To 0 Step -1
    t.rows(i).Delete
Next
t.filter = ""

可以了,谢谢!

只是帮助中对系统命令的说明太简单,有些看不明白什么意思.