请问：在关联表新增行时（之前已新增过一行），由于录入人员误操作，又出现相同一行数据，能否使用代码确认，不予新增行。请指点一下。

DataColChanging：

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

此代码只能清除 "发货批次" 列的内容，而不能删除整行

lin_hailun:

If e.DataCol.Name = "发货批次" Then
Dim dr As DataRow
dr = e.DataTable.Find("发货批次 = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
MessageBox.Show("此发货批次已经存在!")
e.DataRow.Delete
End If
End If
运行结果，却是覆盖了原来有用的行了，我是要把新增的这行删除，而不是把原来有用的行删除