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
重置列的时候数据量一大就卡死，有没有其他办法删除重复行