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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]企业微信 tostring

共有2004人关注过本帖树形打印复制链接主题：[求助]企业微信 tostring

JN_LC

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

加好友

发短信

等级：幼狐帖子：130 积分：1434 威望：0 精华：0 注册：2015/12/7 13:25:00

[求助]企业微信 tostring 发帖心情

Post By：2020/7/13 23:16:00 [只看该作者]

在企业微信中以下代码出现错误

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/department/create?access_token={0}"
Dim hc As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
Dim r As Row=CurrentTable.Current
jo("name") = r("name")
jo("parentid") = r("parentid")
jo("order") = r("order")
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)

错误应该出现在：

jo("name") = r("name")
jo("parentid") = r("parentid")
jo("order") = r("order")

请问，怎样书写正确？