参考这里的示例四：

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

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

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

结果还是没有禁止重复

放在DataColChanged中也可以：

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = \'" & e.NewValue & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("此订单号已经存在!")
        e.Datarow("订单号") = nothing
    End If
End If

放在表A DataColChanged事件中也可以，代码稍改一下

If e.DataCol.Name = "订单号" Then
Dim dr As DataRow
dr = e.DataTable.Find("订单号 = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
MessageBox.Show("此订单号已经存在!")
e.DataRow（"订单号"） = Nothing
End If
End If

不好意思，与上一楼撞车了