该段程序是放在服务器端的计划管理中，按时间间隔该程序可以启动起来，可是执行到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
加好友 
发短信
Post By：2016/11/3 17:37:00 [只看该作者]
此主题相关图片如下：qq截图20161103180849.png