主题：编号重复，清空当前行

老师，我DataColChanging代码验证编号禁止重复，重复时，清空当前行，代码如下：这样的效果是直接删除行了，只清空不删除怎么改？

If e.DataCol.Name = "项目编码"  Then
    Dim dr  As  DataRow
    dr = e.DataTable.Find("项目编码 = '" & e.NewValue &  "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此项目编码已经存在,请复核项目名称!")
        Dim r As Row = Tables("合同签订").Current
        r.Reject()
    End  If
End  If

项目编码是直接通过输入其他列引用过来的。