- 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=118338)
-- 发布时间：2018/4/29 18:55:00
-- 钉钉获取成员列表信息
Dim ur As String = "https://oapi.dingtalk.com/user/list?access_token={0}&department_id={1}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken"),1))
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
DataTables("员工表").DataRows.Clear
For Each jt As JToken In jo("user")
Dim dr As DataRow = DataTables("员工表").AddNew()
dr("userid") = jt("userid")
dr("name") = jt("name")
If jt("department") IsNot Nothing Then
dr("department") = CompressJSon(jt("department")).Trim("[","]")
End If
Next
DataTables("员工表").Save()
Else
MessageBox.Show(jo.ToString)
End If
上面代码帮忙看下，为什么获取不到成员列表信息？
-- 发布时间：2018/4/30 16:05:00
--
1、弹出什么信息？
2、获取返回的内容是什么？
-- 发布时间：2018/4/30 19:55:00
--
此主题相关图片如下：1.png
-- 发布时间：2018/5/1 19:26:00
--
请加入msgbox，调试
http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：2018/5/1 20:54:00
--
Dim ur As String = "https://oapi.dingtalk.com/user/list?access_token={0}&department_id={1}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken"),1))
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
DataTables("员工表").DataRows.Clear
MessageBox.Show(1)
For Each jt As JToken In jo("userlist")
MessageBox.Show(2)
Dim dr As DataRow = DataTables("员工表").AddNew()
dr("userid") = jt("userid")
dr("name") = jt("name")
If jt("department") IsNot Nothing Then
dr("department") = CompressJSon(jt("department")).Trim("[","]")
End If
Next
DataTables("员工表").Save()
Else
MessageBox.Show(jo.ToString)
End If
调试2就跳不出来了，也就是说 For Each jt As JToken In jo("userlist") 这一句是有问题的。
-- 发布时间：2018/5/2 8:47:00
--
可以了，是钉钉通讯录的问题
-- 发布时间：2019/2/20 21:53:00
--
能否把所有代码贴出来学习一下