微信案例，客户端设置关注消息后，关注订阅号后没有反应。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自定义函数： WebChat_GetServerbyUrl

'根据公众号数据库内部ID,获取微信服务'

Dim url As String = Args(0)

MessageBox.show("byurl" & url) ‘可以弹出

Dim dr As DataRow = DataTables("WeChatPubNos").Find("SeverUrl = '" & url & "'")

If dr IsNot Nothing Then

MessageBox.show("我在这里查地址有没有") '不可以弹出

Return Functions.Execute("WeChat_GetServer",dr)

End If

数据库中WebChatPubNos 表如下：

此主题相关图片如下：1.png

明明有这条记录，偏偏找不到，这是怎么回事？要疯了

主题：微信案例，客户端设置关注消息后，关注订阅号后没有反应。