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

老师，我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

 

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

老师，这样不对，把我原来有的一样的项目编号的行的内容清空了，把新增加的行的编号留下了。

有点甜老师，现在出来是这样，是不是我没表述清楚，我是通过窗口录入，选择项目名称，自动引用的另外一个表的前四列：

 

此主题相关图片如下：qq截图20170921111254.jpg

DataColChanged代码如下

If e.DataCol.Name = "项目名称" Then  '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then  '如果新值是空白,也就是品名列的内容为空
        e.DataRow("项目编码") = Nothing '那么清空此行单价列的内容
        e.DataRow("所属机构") = Nothing '那么清空此行单价列的内容
        e.DataRow("项目类别") = Nothing '那么清空此行单价列的内容
        e.DataRow("招标方式") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr  As  DataRow '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("中标统计").Find("[项目名称] = '" & e.NewValue &  "'")
        If dr IsNot  Nothing  Then  '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("项目编码") = dr("项目编码")
            e.DataRow("所属机构") = dr("所属机构")
            e.DataRow("项目类别") = dr("项目类别")
            e.DataRow("招标方式") = dr("招标方式")
        End  If
    End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

老师，示例已上传。

MessageBox.Show("此项目编码已经存在,请复核项目名称!")这个代码放在那儿呢？但有重复时，会触发很多次。

找到了，忘记加Return