以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  json数据如何取出，复制到表中啊？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136786)
--  作者：guosheng
--  发布时间：2019/6/21 15:13:00
--  json数据如何取出，复制到表中啊？

下边是通过钉钉接口，传输的数据；如何将所有的jo("department")(i)("name")复制到某个表中？不会是对表进行 addnew，然后赋值吧？

Dim hc As New HttpClient("https://oapi.dingtalk.com/department/list?access_token=b62d3117acab300287db3114390713d5")
Dim ret As String = hc.GetData()
Dim jo As JObject = JObject.Parse(ret)
For i As Integer = 0 To jo("department").Count - 1
messagebox.show(jo("department")(i)("name"))
Next
--  作者：有点甜
--  发布时间：2019/6/21 15:26:00
--  

1、就是addnew，然后赋值啊。

 

2、你也可以find查找到对应的行，然后赋值啊。

[此贴子已经被作者于2019/6/21 15:26:09编辑过]