以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]删除重复记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196216)
--  作者：lgj716330
--  发布时间：2025/4/9 16:47:00
--  [求助]删除重复记录

供应商档案DataColChanged事件

Select Case e.DataCol.Name \'删除指定条件的行
    Case "供应商编号"
        If e.DataRow.IsNull("供应商编号") = False Then
            Dim i As Integer
            For i = DataTables("供应商档案").DataRows.Count - 1 To 0 Step - 1
                Dim dr As DataRow = DataTables("供应商档案").DataRows(i)
                Dim dr2 As DataRow = DataTables("供应商档案").Find("[供应商编号] = \'" & dr("供应商编号") & "\' and _Identify <> " & dr("_Identify"))
                If dr2 IsNot Nothing Then
                    dr2.delete
                End If 
            Next 
        End If
End Select

重置列的时候数据量一大就卡死，有没有其他办法删除重复行
--  作者：有点蓝
--  发布时间：2025/4/9 16:58:00
--  
这种代码应该放到窗口按钮里，不应该到表事件里处理