Foxtable(狐表) → 用户栏目 → 专家坐堂 → 钉钉接口


  共有3058人关注过本帖树形打印复制链接

主题：钉钉接口
帅哥哟，离线，有人找我吗？
BG小白
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4096 威望：0 精华：0 注册：2019/11/14 23:06:00 		钉钉接口  发帖心情 Post By：2021/12/4 21:24:00 [只看该作者]

For Each dr As DataRow In DataTables("表B").DataRows
    Dim ul As String = "https://oapi.dingtalk.com/topapi/user/listsimple?access_token={0}"
    Dim hc As New HttpClient(CExp(ul,Functions.Execute("access_token")))
    Dim jo As New JObject
    jo("dept_id") = CStr(dr("第一列"))
    jo("cursor") = "0"
    jo("size") = "10"
    hc.Content = jo.ToString()
    jo = JObject.Parse(hc.GetData())
    Dim dt As DataTable = DataTables("表C")
    Dim w As DataRow
    If jo("errcode") = "0" Then
        For Each jt As JToken In jo("result")("list")
            w = dt.Find("userid = '"& jt("userid").tostring &"'")
            If w IsNot Nothing Then
                w("name") = jt("name").tostring
            Else
                w = dt.AddNew
                w("userid") = jt("userid").tostring
                w("name") = jt("name").tostring
            End If
            w.Save
        Next
    Else
        MessageBox.Show(jo.ToString)
    End If
Next

为什么把这段代码放到函数里面，就会显示详细错误信息：
调用的目标发生了异常。
索引超出了数组界限。
 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4096 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/12/5 0:21:00 [只看该作者]


此主题相关图片如下：qq图片20211205001804.png
按此在新窗口浏览图片
还有这个还怎么将返回的值写到表里面去啊
通过下面这种不行
Dim dt As DataTable = DataTables("表C")
    Dim w As DataRow
    If jo("errcode") = "0" Then
        For Each jt As JToken In jo("result")("list")
            w = dt.Find("userid = '"& jt("userid").tostring &"'")
            If w IsNot Nothing Then
                w("name") = jt("name").tostring
            Else
                w = dt.AddNew
                w("userid") = jt("userid").tostring
                w("name") = jt("name").tostring
            End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/5 20:39:00 [只看该作者]

看2楼结果，result是一个数组，不是对象，应该是：jo("result")(0)("field_list")
 回到顶部
帅哥哟，离线，有人找我吗？
BG小白
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：603 积分：4096 威望：0 精华：0 注册：2019/11/14 23:06:00 		  发帖心情 Post By：2021/12/5 23:04:00 [只看该作者]

谢谢
[此贴子已经被作者于2021/12/5 23:19:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/5 23:14:00 [只看该作者]

if  jo("label") isnot nothing then

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询