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

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