老师:关于自动上报位置:我把存储在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
按照代码不添加行,什么显示也没有,不知道问题在哪里?