消息推送怎么做？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 消息推送怎么做？

共有4764人关注过本帖树形打印复制链接主题：消息推送怎么做？

yfy13338431925

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2021/4/25 0:26:00 [只看该作者]

回复申请，qq客户端ReceivedMessage事件下面码不执行

Dim msg As String = e.Message

'msgbox(msg)

Dim pts() As String = msg.Split("|")

If pts.Length = 4 AndAlso pts(0) = "+@" '如果是申请审核消息

Dim dr As DataRow = DataTables("采购明细").Find("_Identify =" & pts(1))

If dr Is Nothing Then DataTables("采购明细").AppendLoad("_Identify = " & pts(1))

dr = DataTables("采购明细").Find("[_Identify] = " & pts(1))

If dr IsNot Nothing Then

msgbox("有新的订单[" & pts(2) & "]需要审核!")

ElseIf pts.Length = 4 AndAlso pts(0) = "-@" Then '如果是回复审核消息

msgbox("有新的订单[" & pts(2) & "]通过审核!")

End If

'发送按钮

QQClient.Send("第一服务公司.工作人员1","-@|" & r("_Identify") & "|" & r("采购单号") & "|" & _UserName,True)

[此贴子已经被作者于2021/4/25 3:03:28编辑过]

有点蓝

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/25 9:39:00 [只看该作者]

这句代码直接复制放到这里本来就是错的，为r("xxx")这种东西在这里根本就不存在，麻烦理解一下代码在使用。如果不理解，多看2遍编程基础。

yfy13338431925

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2021/4/25 10:36:00 [只看该作者]

Dim r As Row = Tables("采购明细").Current
r("查验审核") = _UserName
r.Save()

QQClient.Send("第一服务公司.工作人员1","-@|" & r("_Identify") & "|" & r("采购单号") & "|" & _UserName,True)

是放在审核按钮里的

有点蓝

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/25 10:53:00 [只看该作者]

要做的是回复申请，和审核有什么关系？如果要在接收消息后立即回复，就应该在ReceivedMessage事件里发送了。

另外ReceivedMessage事件只处理了"+@"，没有处理"-@|"的消息

yfy13338431925

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：512 积分：4492 威望：0 精华：0 注册：2018/12/5 23:10:00

Post By：2021/4/25 12:55:00 [只看该作者]

没有懂您的意思

Dim msg As String = e.Message
'msgbox(msg)
Dim pts() As String = msg.Split("|")
If pts.Length = 4 AndAlso pts(0) = "+@" '如果是申请审核消息
Dim dr As DataRow = DataTables("采购明细").Find("_Identify =" & pts(1))
If dr Is Nothing Then DataTables("采购明细").AppendLoad("_Identify = " & pts(1))
dr = DataTables("采购明细").Find("[_Identify] = " & pts(1))
If dr IsNot Nothing Then
PopMessage("有新的订单[" & pts(2) & "]需要审核!")
ElseIf pts.Length = 4 AndAlso pts(0) = "-@" Then '如果是回复审核消息

PopMessage("采购单[" & pts(2) & "]已同意入库!")
End If
End If

红色部分的ReceivedMessage事件不能是处理"-@|"的消息me

您帮我写一下呗，老费劲了