主题：请专家指导

在数据表中新增数据时，判断该单位数据已经存在的话，则删除新增的行。但下面的代码为什么不能达到要求。

If e.DataCol.Name = "dwdm" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("dwdm = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("该单位数据已经存在不能添加!")
        e.Cancel=True
        e.DataRow.Delete
    End If
End If

还是不行，看来只得用其他方法了。谢谢各位了！

无论是用代码检查还是用列属性设置禁止重复，在直接输入的情况下都没有问题，但一旦用目录树录入就会出现问题，在设置列属性禁止重复时用目录树录入不会激发检测重复值，用代码则可以检测到，也可以进行一般的处理，但不能删除当前行。