主题：导入窗口中导入问题

在导入窗口中， 导入按钮的代码为：

If Tables("采购主表.采购明细表").rows.Count > 0 Then

    For Each r1 As Row In Tables("采购主表.采购明细表").GetCheckedRows
        Dim  r2 As Row = Tables("入库主表.入库明细表").AddNew
        r2("排产序列号") = r1("排产序列号")
        r2("采购单号") = r1("采购单号")
        r2("产品编号") = r1("产品编号")
        r2("数量") = r1("数量")
        r2("单价") = r1("单价")
        r2("单位") = r1("单位")
        'r2("产品编号") = r1("单位")
    Next
    e.Form.close   
Else
    MessageBox.Show("该笔订单无未下单项!")
End If

如何加入一个判断，排产序列号不能重复，如重复就提示此产品已入库，拒绝导入？？？

现在知道在表中可以加入以下代码， 但在窗口中虽然有提示， 但还是导入了， 如何不允许导入呢？？

If e.DataCol.Name = "排产序列号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("排产序列号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此产品已入库!")
        e.Cancel = True
    End If
End If