能帮忙看看这个吗？为什么Return没有执行呢？绿色代码还是会弹出窗口， 感谢 感谢
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
Return
End If
nr("No")=ss(1)
End Select
Else
nr("客户_地址") = nr("客户_地址") & ss(0)
End If
If forms("订单商管选择窗口").Opened=False Then
forms("订单商管选择窗口").Open
End If
forms("订单商管选择窗口").visible=True
Next
[此贴子已经被作者于2018/8/25 9:01:23编辑过]
加好友 
发短信
Post By：2018/8/25 9:01:00 [只看该作者]
