主题：与foxtable配套的金笛短信猫，一定要M1206B这一款吗？

 意思是可以发信息，就是代码有问题是么？

Dim ret As String = ""
If e.Content.StartsWith("@@") Then '如果信息是以约定的@@开始
    Dim vals() As String = e.Content.Trim("@").Split("@")
   
    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
    FoxSms.DelMsgForIndex(e.Index) '从SIM卡删除此短信
    FoxSMS.SendMsg(e.FromNumber,ret) '回复短信,告诉业务员,此订单是否提交成功
End If
If ret = "" Then
    ret = "格式错误:" & e.Content
End If

再改一下

Dim ret As String = ""
If e.Content.StartsWith("@@") Then '如果信息是以约定的@@开始
    Dim vals() As String = e.Content.Trim("@").Split("@")
   
    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
End If
If ret = "" Then
    ret = "格式错误:" & e.Content
End If
FoxSms.DelMsgForIndex(e.Index) '从SIM卡删除此短信
FoxSMS.SendMsg(e.FromNumber,ret) '回复短信,告诉业务员,此订单是否提交成功

 呃，现在是测试的时候，你一步一步测试啊。

 在事件里单独写一句代码 msgbx(e.Content)