主题：关于排除重复

我在表的DataColChanging

事件里加入代码:

If e.DataCol.Name = "产品编号" Then

    Dim dr As DataRow

    dr = e.DataTable.Find("产品编号 = '" & e.NewValue & "'")

    If dr IsNot Nothing Then

                MessageBox.Show("产品编号为"& "'" & e.NewValue & "'" & "已存在!")

        e.Cancel = True

    End If

End If

提示框只一个个提示..如果我导入的有很多重复的,怎样让提示框一次性提示呢?,而且重复的取消导入,只取消产品编号列的导入,其他列(产品名称规格那些的)还是给我导入进去了,这个要怎么解决 ?