主题：短信发送

If FoxSMS.Ready = False Then

    Return

End If

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

For Each dr As DataRow In dt.DataRows

    If FoxSMS.SendMsg(dr("移动电话"),dr("短信回访内容")) = 0 Then

        dr("已发送") = True

    End If

Next

dt.Save()

dt.LoadFilter ="已发送 = 0 Or 已发送 = Null And 注册单位='" & _UserCompany & "'And 归属人='" & _UserID & "'"

dt.Load

If dt.DataRows.Count = 0 Then

    FoxSMS.CloseCom()

    MyTimers("计划1").Enabled = False

End If

我做了个计划管理 这样写 行不 系统好像一直卡死