检测列内容是否重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

能帮忙看看这段吗？

在执行红色代码之前能检测到即将复制到No的编号是否在No列重复，如果没有重复才执行，如果重复就弹出提示窗口，感谢感谢

红色代码是吧复制的内容复制到对于的列，至少在复制前能不能检测到No列已经有相同的内容了，感谢感谢

Dim s As String = ClipBoard.GetText()

s = s.Replace(chr(10), "").Replace("Address", chr(13) & "Address").Replace("Zip Code", chr(13) & "Zip Code").Replace("Mobile", chr(13) & "Mobile").Replace("Tel", chr(13) & "Tel").Replace("No", chr(13) & "No")

Dim nr As Row = Tables("订单管理").AddNew

nr("客户_详解") = s

For Each str As String In s.Split(Chr(13))

Dim ss As String() = str.Split(":")

If ss.length > 1 Then

Dim cs As String = ss(0)

Select Case cs.trim()

Case "Contact Name"

nr("客户_姓名")=ss(1)

Case "Address"

nr("客户_地址")=ss(1)

Case "Zip Code"

nr("客户_邮编")=ss(1)

Case "Mobile"

nr("客户_电话")=ss(1)

Case "Tel"

nr("客户_固话")=ss(1)

Case "No"

nr("No")=ss(1)

End Select

Else

nr("客户_地址") = nr("客户_地址") & ss(0)

End If

Dim s As String = ClipBoard.GetText()
s = s.Replace(chr(10), "").Replace("Address", chr(13) & "Address").Replace("Zip Code", chr(13) & "Zip Code").Replace("Mobile", chr(13) & "Mobile").Replace("Tel", chr(13) & "Tel").Replace("No", chr(13) & "No")
Dim nr As Row = Tables("订单管理").AddNew
nr("客户_详解") = s
For Each str As String In s.Split(Chr(13))
    Dim ss As String() = str.Split(":")
    If ss.length > 1 Then
        Dim cs As String = ss(0)
        Select Case cs.trim()
            Case "Contact Name"
                nr("客户_姓名")=ss(1)
            Case "Address"
                nr("客户_地址")=ss(1)
            Case "Zip Code"
                nr("客户_邮编")=ss(1)
            Case "Mobile"
                nr("客户_电话")=ss(1)
            Case "Tel"
                nr("客户_固话")=ss(1)
            Case "No"
                If DataTables("订单管理").find("no = '" & ss(1) & "'") isnot nothing then
                    msgbox("已经存在此no”）
                    nr.delete
                    exit for
                end if
                nr("No")=ss(1)

        End Select
    Else
        nr("客户_地址") = nr("客户_地址") & ss(0)
    End If
Next

If e.Form.Controls("RadioButton1").checked Then

If Not (e.Form.Controls("TextBox1").Text > "Tables("平台管理").Filter = "平台属性_商品编号" ") Then

MessageBox.Show("已经有相同的公司存在?")

Return

End If

点击按钮检测TextBox1内容有与平台管理表的平台属性_商品编号相同

能帮忙看看这段吗？

感谢感谢

if Tables("平台管理").current isnot nothing
If e.Form.Controls("TextBox1").Text = Tables("平台管理").current ("平台属性_商品编号") Then

MessageBox.Show("已经有相同的公司存在?")

Return

End If

感谢感谢还是会输入呢，有没有提示，感谢感谢

代码单独看没问题的。

做一个实例发上来测试。

主题：检测列内容是否重复