在表中查找编号重复的行,什么样的代码效率高? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在表中查找编号重复的行,什么样的代码效率高?

共有10794人关注过本帖树形打印复制链接主题：在表中查找编号重复的行,什么样的代码效率高?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/9/6 16:03:00 [显示全部帖子]

查找重覆行:

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

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/9/6 16:04:00 [显示全部帖子]

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

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 = ""

下一主题 >> << 上一主题

主题：在表中查找编号重复的行,什么样的代码效率高?