以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动上报位置无法存储在foxtable钟  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120403)
--  作者：lin1221
--  发布时间：2018/6/14 13:47:00
--  [求助]自动上报位置无法存储在foxtable钟
老师：关于自动上报位置：我把存储在txt的文件修改存储到foxtable中，但用户自动上报的时候，就是不存储，无任何显示
 Case "LOCATION" \'自动上报地理位置事件
   Dim y As String = xo("Longitude") \'经度
   Dim x As String = xo("Latitude") \'纬度
   Filesys.WriteAllText(logFile , OpenID & "在" & CreateTime & "的位置为:" & x & "|" & y & vbcrlf , True)

我自己的代码
 Case "LOCATION" \'自动上报地理位置事件

   Dim OpenID As String  = xo("FromUserName") 
   Dim CreateTime As Date = st.AddSeconds(xo("CreateTime")) 
  Dim y As String = xo("Longitude") \'经度
  Dim x As String = xo("Latitude") \'纬度
   Dim dr as datarow = datatables("location").addnew()
   dr("FromUserName") = OpenID
   dr("CreateTime") = CreateTime
   dr("Longitude") = y
   dr("Latitude") = x
   dr.saave()

location表
FromUserName CreateTime MsgType Latitude Longitude Precision

按照代码不添加行，什么显示也没有，不知道问题在哪里？
--  作者：有点甜
--  发布时间：2018/6/14 14:27:00
--  

 

https://mp.weixin.qq.com/wiki?action=doc&id=mp1421140841&t=0.6130908688268812

 

用户同意上报地理位置后，每次进入公众号会话时，都会自动上报地理位置，也可以选择在会话持续期间，每5分钟 自动上报一次地理位置。

 

 
--  作者：有点甜
--  发布时间：2018/6/14 14:27:00
--  
加入msgbox，看事件代码是否执行？响应的事件是什么事件？