就是信息没有发送成功。

If e.Succeed Then \'如果发送成功
   
    Dim r As Row = Tables("rjsytVIP回访记录").AddNew()
    r("VIP电话") = e.DestNumber
    r("短信回访内容") = e.Content
    r("回访时间") = Date.Now()
    r("回访形式") = "短信回访"
    r("回访单位") = user.name
    r("编号") = e.MsgID
    r.Save()

Else
    MessageBox.Show("向" & e.DestNumber & "发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

但是为什么会没有发送成功呢？短信猫是提示连接着。

计划也是有执行：

Dim dt As DataTable = DataTables("待发送")
If dt.DataRows.Count = 0 Then
    dt.LoadFilter = "已发送 = 0 Or 已发送 Is Null"
    dt.Load()
End If

For Each dr As DataRow In dt.DataRows
    If FoxSMS.Ready = False Then
        Exit For
    Else
        FoxSMS.SendMsg(dr("VIP电话"), dr("短信回访内容")) \'发送信息
        dr("已发送") = True
        dr("编号") = FoxSMS.MsgID
    End If
Next
dt.Save()
dt.removeFor("已发送 = True")

我在数据库里看到【已发送】是有打勾的。

各位老师，我晚上回来家里，又试了一遍，还是不行，还是提示【短信猫有连接】，计划有执行，但就是发送不成功。真是奇了怪了。。。

相关代码我也贴上：

AfterOpenProject

FoxSms.SyncWorkMode = False \'设置为异步工作模式

FoxSMS.CommPort = 1 \'注意端口号千万不能搞错

FoxSMS.OpenCom

If User.Type <> UserTypeEnum.Developer

    TableCaptionVisible = False

End If

Forms("主界面").Open()

MainTable = Tables("空表")

Forms("启动短信设备").Open()

ConnectModemResult

If e.Succeed = True Then

    MessageBox.Show("短信设备连接成功!","提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

    MessageBox.Show("短信设备连接失败!","提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

NewMessage

Dim r As Row = Tables("rjsytVIP回访记录").AddNew()

r("顾客回复的电话") = e.FromNumber

r("顾客回复的内容") = e.Content

r("回访时间") = Date.Now

r("发送时间") = e.SentTime

r("回访类别") = "顾客来信"

r.Save()

FoxSms.DelMsgForIndex(e.Index) \'从SIM卡删除此短信

SentMsgStatus

If e.Succeed Then \'如果发送成功

    Dim r As Row = Tables("rjsytVIP回访记录").AddNew()

    r("VIP电话") = e.DestNumber

    r("短信回访内容") = e.Content

    r("回访时间") = Date.Now()

    r("回访形式") = "短信回访"

    r("回访单位") = user.name

    r("编号") = e.MsgID

    r.Save()

Else

    MessageBox.Show("向" & e.DestNumber & "发送信息失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

计划管理

从提交上来的待发送自动发送短信

Dim dt As DataTable = DataTables("待发送")

If dt.DataRows.Count = 0 Then

    dt.LoadFilter = "已发送 = 0 Or 已发送 Is Null"

    dt.Load()

End If

For Each dr As DataRow In dt.DataRows

    If FoxSMS.Ready = False Then

        Exit For

    Else

        FoxSMS.SendMsg(dr("VIP电话"), dr("短信回访内容")) \'发送信息

        dr("已发送") = True

        dr("编号") = FoxSMS.MsgID

    End If

Next

dt.Save()

dt.removeFor("已发送 = True")

自动删除已经发送的信息

Dim dt As DataTable = DataTables("待发送")

dt.DeleteFor("已发送 = True")

表事件

窗口表事件

窗口与控件事件

启动短信设备_Button1_Click

FoxSms.SyncWorkMode = False \'设置为异步工作模式

FoxSMS.CommPort = 1 \'注意端口号千万不能搞错

FoxSMS.OpenCom

单独调试，看是不是短信猫的问题。

弄一个新的项目，弄好环境，用代码测试发送一条短信。

有点甜老师，新建项目也是不行。我用了他们自带的软件，也还是不行。明天找厂家问去。