以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]执行 QQServer.SendNotice语句出错原因？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92457)

--  作者：新福星 --  发布时间：2016/11/3 17:37:00 --  [求助]执行 QQServer.SendNotice语句出错原因？ 该段程序是放在服务器端的计划管理中，按时间间隔该程序可以启动起来，可是执行到X点，QQServer.SendNotice语句就出错了。查了半天组合的字串都是符要求的？错在哪了？谢谢 Dim ywy As String Dim tsxx As String r=DataTables("定义参数").SQlfind("参数名称=\'客户提示周期\'") If r IsNot Nothing Then          fps= DataTables("活动记事").SQLSelect("周期_提醒<>0")          For Each fp As DataRow In fps         If fp.Isnull("周期_基准日期")=True Then fp("周期_基准日期")=Date.Today                           If    fp("周期_基准日期")>= Date.Today  Then \' & ">=" &  日期符 & Date.today & 日期符 Then             yg=DataTables("人员基本信息").sqlfind("姓名=\'" & fp("业务员") & "\'")             If yg IsNot Nothing Then                 ywy=yg("部门") & "." & fp("业务员")                 MessageBox.Show(ywy)                 tsxx=fp("企业名称") & fp("事项名称") & " 请关注该公司事情的进展!"                 MessageBox.Show(tsxx) X：‘为什么执行下面这条语句就出错了？                 QQServer.SendNotice(ywy,tsxx)                 QQServer.SendNotice(ywy,"再次提醒" & fp("企业名称") & fp("事项名称") & " 请关注该公司事情的进展!")                              End If             MessageBox.Show(300)             fp("周期_基准日期")= cdate(fp("周期_基准日期")).AddDays(r("参数1"))             fp.save         End If     Next End If

--  作者：有点蓝 --  发布时间：2016/11/3 18:07:00 --   出什么错误提示？

--  作者：新福星 --  发布时间：2016/11/3 18:14:00 --   此主题相关图片如下：qq截图20161103180849.png

--  作者：有点色 --  发布时间：2016/11/3 18:26:00 --   你的qqServer是不是没有启动起来？不启动就会报错。

--  作者：新福星 --  发布时间：2016/11/3 18:42:00 --   问题找到了 ！这个错误是调测时，在本地机器启动后就出了这个问题。而把程序布置到服务器上就正常了！谢谢有点兰老师和有点色兄弟！