以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  检测列内容是否重复  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121263)
--  作者：yangwenghd
--  发布时间：2018/7/2 23:19:00
--  检测列内容是否重复
能帮忙看看这段吗？
在执行红色代码之前能检测到 即将复制到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
Next
--  作者：有点甜
--  发布时间：2018/7/3 9:49:00
--  
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
--  作者：yangwenghd
--  发布时间：2018/7/11 16:15:00
--  
If e.Form.Controls("RadioButton1").checked Then
    If Not (e.Form.Controls("TextBox1").Text > "Tables("平台管理").Filter = "平台属性_商品编号" ") Then
        MessageBox.Show("已经有相同的公司存在?")
        Return
    End If
点击按钮 检测TextBox1内容有与平台管理表的平台属性_商品编号相同
能帮忙看看这段吗？
感谢 感谢 
--  作者：有点蓝
--  发布时间：2018/7/11 16:33:00
--  
if Tables("平台管理").current isnot nothing
If e.Form.Controls("TextBox1").Text = Tables("平台管理").current ("平台属性_商品编号") Then
MessageBox.Show("已经有相同的公司存在?")
        Return
    End If
  End If
--  作者：yangwenghd
--  发布时间：2018/7/11 17:06:00
--  
感谢 感谢 还是会输入呢，有没有提示，感谢 感谢
--  作者：有点甜
--  发布时间：2018/7/11 17:26:00
--  

代码单独看没问题的。

 

做一个实例发上来测试。