主题：求助：关联表新增行出现重复内容，能否禁止增加重复行或取消增加重复行

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

 

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

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

 

 哦哦，你想删除整行？

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

多谢您啦~~~~ 狐神！林总

 

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
运行结果，却是覆盖了原来有用的行了，我是要把新增的这行删除，而不是把原来有用的行删除

 不明白，什么意思，楼主。例子，数据表。

 

If e.DataCol.Name = "发货批次" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("发货批次 = '" & e.NewValue & "' And [_Identify] <> " & e.DataRow("_Identify"))
    If dr IsNot Nothing Then
        MessageBox.Show("此发货批次已经存在!")
        e.DataRow.Delete
    End If
End If

还是不行,若是增加多行后,删除行会出现错误.看来思路要转变一下,若"发货批次"重复的话,禁止加入行,怎样才能实现

 

 你的项目打不开，没有数据源。

http://www.foxtable.com/help/topics/2481.htm