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
Contact Name: Kellen Borba Skolimovski de Oliveira
Address: Rua Desembargador Westphalen, 1669
Oficina
Curitiba, Parana, Brazil
Zip Code:
80230100
Mobile: 55-041-9854-3338
Tel: 55-041-3045-6787
No: 63393059665475
Contact Name: Andre lima de jesus
Address: R:Rio Branco N:150
Praia da costa
vila velha, Espirito Santo, Brazil （在按钮录入Address的时候只是录入了R ，可不可以改为录入R:Rio Branco N:150 Praia da costa vila velha, Espirito Santo, Brazil，找到的规律是：在Address:后面切在Zip Code:前面类容录入到"客户_地址"列）感谢 感谢
Zip Code: 29101130
Mobile:
5527999094016
Tel: 55-27-30620745
No: 63430391861011
能帮我看看吗 为什么后面的那个数据不能录入呢！
[此贴子已经被作者于2014-8-16 18:15:51编辑过]
加好友 
发短信
Post By：2014/8/16 17:49:00 [只看该作者]
