删除重复行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'Dim i As Integer

'For i = DataTables("BOM清单").DataRows.Count - 1 To 0 Step - 1

' Dim dr As DataRow = DataTables("BOM清单").DataRows(i)

' Dim dr2 As DataRow = DataTables("BOM清单").SQLFind("母件编码 = '" & dr("母件编码") & "' And 子件编码 = '" & dr("子件编码") & "' and _Identify > " & dr("_Identify"))

' If dr2 IsNot Nothing Then

' dr2.Delete

' End If

'Next

上面的代码用来删除重复行不起作用，不知是什么回事，不知是不是有超三行重复时不起作用

主题：删除重复行