主题：用代码设置表A第一列不重复

我知道内部表可以禁止重复，我需要用代码禁止第一列禁止重复（如果有重复数据，跳出提示）

狐爸，我看到实例代码是这样的：

 

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

 

每次我在“订单号”列录入的内容尽管不重复，亦都是弹出“此订单号已经存在！”，就更别说真正录入重复的内容能够进行阻止了。不知道是我哪出问题了，请狐爸帮忙看看这个代码。

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

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

 

表A 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

 

结果还是没有禁止重复