主题：[求助]数据唯一性校验

各位专家好！

 

有关于数据唯一性校验问题想请教一下。不知道各位有没有遇见同样问题？

请先看图。

这个界面用了两个表，一个主表，一个明细表。单向关联，入库单编号为关联列。

 

 

由于要求入库单编号在主表必须唯一，不可重复。我试过在两个地方输入校验代码：

1. 表的DataColChanged:

   Select Case e.DataCol.Name
    Case "转仓单编号"
        If e.NewValue IsNot Nothing Then
            If DataTables("入库单主文件").Select("入库单编号 = '" & e.NewValue & "'").Count > 1 Then
                Messagebox.Show("您输入的单据编号重复,请重新输入!","提示")
                e.DataRow("入库单编号") = Nothing
            End If
        End If
End Select

 

2. 窗口的Validating:

    If e.sender.value IsNot Nothing Then
    If DataTables("其他入库单").Select("入库单编号 = '" & e.sender.value & "'").Count > 1 Then
        messagebox.show("入库单编号重复了,请重新输入!","提示")
        e.cancel = True
    End If
End If

 

当然不是同时两个地方代码都存在。

 

结果就是：我输入相同的入库单编号时，能够提示数据重复，但是竟然将先前输入的明细表给调出来了。非常讨厌。

请教一下该怎么处理才不会这样呢？

谢谢了，在线等答案。

此主题相关图片如下：20130822_143616.jpg

简单做了个例子，请指点一下。谢谢。

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

点击浏览该文件:管理项目1.rar