Dim sqry As String = e.Form.Controls("申请人员").Value '申请人员
Dim shry As String = e.Form.Controls("审核人员").Value '审核人员
Dim pzry As String = e.Form.Controls("批准人员").Value '批准人员
Dim r As Row = Tables("审批").Current
r("审核日期") = Date.Today
r("审批状态") = "批准中"
r.Save()
'发送申请批准的消息
QQClient.Send(pzry,"+pz|" & r("_Identify") & "|" & r("申请单号") & "|" & shry,True)
'发送审核通过的消息
QQClient.Send(sqry,"-sh|" & r("申请单号") & "|" & shry,True)
反复测试 好像是红色这句代码 没有发出msg到批准人员的客户端，是不能同时执行两个send功能吗
加好友 
发短信
Post By：2019/11/4 18:58:00 [显示全部帖子]
