主题：按钮录入的代码

代码改一下

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