微信企业号和企业微信合并了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 微信企业号和企业微信合并了

共有2025人关注过本帖树形打印复制链接主题：微信企业号和企业微信合并了

nothing

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：517 积分：3383 威望：0 精华：0 注册：2013/1/3 17:08:00

微信企业号和企业微信合并了 发帖心情

Post By：2017/6/27 11:02:00 [只看该作者]

增加了轻量级的OA功能，并且可以获取数据，https://work.weixin.qq.com/api/doc#11228

帮助文件能针对这一节升级一下么

碰到的难点：

一、把日期转换成UTC时间戳

二、返回值取出来存到表里

请老师帮帮忙

nothing

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：517 积分：3383 威望：0 精华：0 注册：2013/1/3 17:08:00

Post By：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

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

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

下一主题 >> << 上一主题

主题：微信企业号和企业微信合并了