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
上面代码帮忙看下,为什么获取不到成员列表信息?