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


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

主题:钉钉接口

帅哥,在线噢!
有点蓝
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105252 积分:535209 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 14:42:00 [显示全部帖子]

自动更新可以看看钉钉的订阅事件有没有更新的事件,接收数据后做对应处理即可,类似:http://www.foxtable.com/mobilehelp/topics/0216.htm

 回到顶部
帅哥,在线噢!
有点蓝
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105252 积分:535209 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 16:22:00 [显示全部帖子]

dr("第七列") = st.AddSeconds(clog(xo("TimeStamp"))/1000)

 回到顶部
帅哥,在线噢!
有点蓝
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105252 积分:535209 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 17:27:00 [显示全部帖子]

clng

 回到顶部
帅哥,在线噢!
有点蓝
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105252 积分:535209 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 20:52:00 [显示全部帖子]

如果在回调里处理,和按钮的代码没有半毛钱的关系。

msgbox(res) '根据接收的解密的内容进行后续处理

 回到顶部
帅哥,在线噢!
有点蓝
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105252 积分:535209 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 21:28:00 [显示全部帖子]

如果在回调里处理,和按钮的代码没有半毛钱的关系

res就是接收的数据,根据接收数据进行后续处理
Dim xo As JObject = JObject.Parse(res)
    Select Case xo("EventType")
       Case "org_dept_modify"
   If xo("DeptId") IsNot Nothing Then
Dim dt As DataRow = DataTables("department").SQLFind("outid =  '" & xo("DeptId").tostring & "'")
If dt IsNot Nothing Then
        dt("departname") = xo("name").tostring
        dt("xxx列") = xo("xxx名称").tostring
        dt.Save
End If

 回到顶部
帅哥,在线噢!
有点蓝
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105252 积分:535209 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 22:55:00 [显示全部帖子]

哦,如果是这样的结果,倒是应该是调用原来的按钮的那段代码重新获取部门详情,就是71楼的代码,调试一下看是那一句代码出错,以后有问题的时候建议先自行调试,定位到错误的语句

 回到顶部
帅哥,在线噢!
有点蓝
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105252 积分:535209 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/26 9:02:00 [显示全部帖子]

发布一个客户端放到服务器运行,执行上面的代码有没有问题?

web服务端回调调试下面代码
Dim rsp As DingTalk.Api.Response.OapiV2DepartmentGetResponse = client.Execute(req, access_token)
msgbox(rsp is nothing)
msgbox(rsp.errmsg)
msgbox(rsp.result is nothing)
Dim t As String  = rsp.result.DeptId

[此贴子已经被作者于2021/2/26 9:02:45编辑过]

 回到顶部
总数 38 上一页 1 2 3 4