主题：一条短信能录入多条订单吗？

那就不要用@作为分隔符。你可以用#等字符分隔，

在NewMessage事件里split一下，就能得到各条的数据了。

你得编写代码去增加。

For Each str As String In e.Content.split("#")
    Dim nr As Row = Tables("表A").AddNew
    nr("第一列") = str
Next

 比如，你的短信是这种形式，就这样编写代码

###kx001*ss01*5*15|kx001*ss32*10*50

If e.Content.StartsWith("###") Then
    For Each cons As String In e.Content.SubString(3).Split("|")
        Dim vals() As String = cons.Split("*")
        Dim ret As String
        If vals.Length = 4 Then '如果数组长度等于4
            If vals(0) > "" AndAlso vals(1) > "" Then '且提交了客户名称和产品名称
                Dim Quantity As Integer
                Dim Price As Double
                If Integer.TryParse(Vals(2), Quantity) '如果数量格式正确
                    If Double.TryParse(Vals(3), Price) Then '如果单价格式正确
                        Dim dr As DataRow = DataTables("订单").AddNew()
                        dr("客户") = vals(0)
                        dr("产品") = vals(1)
                        dr("数量") = vals(2)
                        dr("单价") = vals(3)
                        ret = "提交成功:" & e.Content
                    End If
                End If
            End If
        End If
        If ret = "" Then
            ret = "格式错误:" & e.Content
        End If
        FoxSms.DelMsgForIndex(e.Index) '从SIM卡删除此短信
        FoxSMS.SendMsg(e.FromNumber,ret) '回复短信,告诉业务员,此订单是否提交成功
    Next
End If

你用其它分隔符，对应的代码也要改啊。请看18楼解释和代码。