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

我代码这样的，但报错，什么原因

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/oa/getapprovaldetail?access_token={0}"

Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessTokensp")))

Dim jo As New JObject

jo("sp_no") =202007280001
图片点击可在新窗口打开查看

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

hc.Content = jo.ToString()

jo = JObject.Parse(hc.GetData())

If jo("errcode") = "0" Then

Dim nms() As String = {"sp_no","sp_name","sp_status"}

' Dim nms() As String = {"sp_no","sp_name","sp_status","template_id","apply_time","userid"}

For Each jt As JToken In jo("info")

Dim dr As DataRow = DataTables("企业微信审批单").AddNew()

For Each nm As String In nms

msgbox(nm)

dr(nm) = jt(nm)

DataTables("企业微信审批单").Save()

[此贴子已经被作者于2020/8/10 13:02:01编辑过]

主题：获取企业微信审批单数据