以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  微信企业号和企业微信合并了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102880)

--  作者:nothing
--  发布时间:2017/6/27 11:02:00
--  微信企业号和企业微信合并了
增加了轻量级的OA功能,并且可以获取数据,https://work.weixin.qq.com/api/doc#11228
帮助文件能针对这一节升级一下么
碰到的难点:
一、把日期转换成UTC时间戳
二、返回值取出来存到表里
请老师帮帮忙

--  作者:nothing
--  发布时间:2017/6/27 11:07:00
--  
Dim json As String = "{\'name\':\'李云龙\',\'card\':[{\'bank\':\'工行\',\'account\':\'123\'},{\'bank\':\'建行\',\'account\':\'678\'}]}"
Dim
jo As JObject = JObject.Parse(json)
Output
.Show(jo("name"))
For
Each jt As JToken In jo("card")
Output.Show(jt("bank").ToString & "|" & jt("account").ToString)

Next


返回值一层套一层的,有点晕

--  作者:有点色
--  发布时间:2017/6/27 11:42:00
--  

1、

 

Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
msgbox(timestamp)

 

2、把json的知识学一下

 

http://baike.baidu.com/link?url=_vjSMY_CmNb-sfb2gm7R1DG0Fz_WNa5bQIAJ8gL3gPzBRl1ODh_w18Emfe5-Es8g_sPmCSVrvyyLMtPfHWTs5a

 

http://www.foxtable.com/mobilehelp/scr/0140.htm