|
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
|
加好友 
发短信
Post By：2018/7/3 9:49:00 [显示全部帖子]
