如何后台全局禁止重复数据急急急 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

RT 我有个客户信息表客户名称设置了禁止重复用的是这段代码 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

我用的是录入窗口方式录入，但是同时我设置了只加载所有者=当前用户名的数据，当前用户名下是不能录入2个完全相同的用户名了但是我换个用户后就可以录入了，这样其实整个表里面确实是存在了两个相同的用户了，问下高手如何实现整个表达到不能录入相同数据的效果并且提示呢？

利用SQLCOMMAND http://www.foxtable.com/help/topics/0696.htm

利用SQL语句查询是否存在该单号或者用户名例如

"select * from {表A} where 订单号='" & e.newValue & "'"

期待高手帮忙啊

2楼已经告诉了你答案

If e.DataCol.Name = "客户名称" Then

Dim cmd As New SQLCommand

Dim dr As DataRow

dr = cmd.CommandText = "select 客户名称 from {客户信息表} where 客户名称='" & e.newValue & "'"

If dr IsNot Nothing Then

MessageBox.Show("此客户已经存在!")

e.Cancel = True

End If

老大帮忙看看这里错在哪里？

If e.DataCol.Name = "客户名称" Then

Dim cmd As New SQLCommand

Dim dr As DataRow

dr = cmd.CommandText = "select 客户名称 from {客户信息表} where 客户名称='" & e.newValue & "'"

If dr IsNot Nothing Then

MessageBox.Show("此客户已经存在!")

e.Cancel = True

End If

老大帮忙看看我这个错在哪里我拼凑出来的汗

希望老大可以出个实例啊

代码改成这样

If e.DataCol.Name = "客户名称" Then

Dim cmd As New SQLCommand

cmd.CommandText = "select count(客户名称) from {客户信息表} where 客户名称='" & e.newValue & "'"

Dim result As Integer = cmd.ExecuteScalar

If result > 0 Then

MessageBox.Show("此客户已经存在!")

e.Cancel = True

End If

貌似不行哦我添加到DataColChanging 然后添加一个重复客户提示错误Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP客户信息表'。确定它是否存在，以及它的名称的拼写是否正确。

如果是外部表，参考下面的帮助

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

主题：如何后台全局禁止重复数据 急急急

主题：如何后台全局禁止重复数据急急急