能帮忙看看这段吗？在执行红色代码之前能检测到 即将复制到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
加好友 
发短信
Post By：2018/7/2 23:19:00 [显示全部帖子]
