主题：[求助]重复值筛选

Dim dr As DataRow =e.DataRow
Dim filter As String
Dim count As Integer

filter =  "出厂编号 = '" & dr("出厂编号") & "' and  注册代码 = '" & dr("注册代码") & "'"
count = e.DataTable.Compute("count(出厂编号)", filter)
If count > 1 Then
    msgbox("存在相同代码和编号")
    e.cancel = True
End If

If dr.IsNull("出厂编号") = False Then
    filter = "出厂编号 = '" & dr("出厂编号") & "'"
End If
count = e.DataTable.Compute("count(出厂编号)", filter)
If count > 1 Then
    msgbox("存在相同编号")
    e.cancel = True
End If
If dr.IsNull("注册代码") = False Then
    filter = "注册代码 = '" & dr("注册代码") & "'"
End If
count = e.DataTable.Compute("count(出厂编号)", filter)
If count > 1 Then
    msgbox("存在相同代码")
    e.cancel = True
End If