发送模板信息测试咨询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://www.foxtable.com/mobilehelp/index.htm?page=0188.htm

1.使用帮助中代码，和帮助中效果不一样。

您好，您已购买成功。商品：{{name.DATA}}购买数量：{{number.DATA}}有效期：{{expDate.DATA}}{{remark.DATA}}

此主题相关图片如下：111.jpg

此主题相关图片如下：222.jpg

2.我的Foxtable没有找到“长整数”，我改用整数 .....这个问题找到原因了，因为我用的是内部表，我改用sql表，就有“长整数”了。

经测试，没有触发这个事件：

Case "TEMPLATESENDJOBFINISH" '接收模版消息发送完成事件'

msgbox(1)

Dim dr As DataRow = DataTables("TemplateMessage").Find("MsgID = " & xo("MsgID").ToString)

If dr Is Nothing Then

dr = DataTables("TemplateMessage").AddNew()

dr("MsgID") = xo("MsgID") '动态生成的消息ID,每个消息都不同

dr("OpenID") = xo("FromUserName")'接收方OpenID

msgbox(2)

End If

dr("Status") = xo("Status") '记录发送状态

dr.Save()

msgbox(3)

此主题相关图片如下：333.jpg

[此贴子已经被作者于2017/6/14 16:06:21编辑过]

1、多了一个【空格】，那个空格实际上就是一个回车符号，你加上即可。

2、事件里面加入msgbox，弹出值看一下。

没有弹窗。

此主题相关图片如下：123.jpg

...

ElseIf e.Request.HttpMethod = "Post"

Dim xo As XObject = XObject.Parse(e.PlainText)

Dim st As New Date(1970,1,1,8,0,0)

S e l e c t Case xo("MsgType")

Case "text","image","voice","video","shortvideo" '保存和自动回复收到的消息

...

Case "event" '如果是事件

S e l e ct Case xo("Event")

Case "subscribe" '关注事件

...

Case "unsubscribe" '取消关注事件

...

Case "TEMPLATESENDJOBFINISH" '接收模版消息发送完成事件'

msgbox(1)

Dim dr As DataRow = DataTables("TemplateMessage").Find("MsgID = " & xo("MsgID").ToString)

If dr Is Nothing Then

dr = DataTables("TemplateMessage").AddNew()

dr("MsgID") = xo("MsgID") '动态生成的消息ID,每个消息都不同

dr("OpenID") = xo("FromUserName")'接收方OpenID

msgbox(2)

End If

dr("Status") = xo("Status") '记录发送状态

dr.Save()

msgbox(3)

End S e l e c t

End If

[此贴子已经被作者于2017/6/14 16:37:35编辑过]

呃.....里面没有弹出，那就在外面加入，弹出值，看为什么没进入。

主题：发送模板信息测试咨询