谢谢，老师。其实我这边对71楼的代码反复调试已经有50多次了。
蓝色代码，我专门做了个按钮，去单独调取一个DeptId的详情，并更新到数据库。都是可以的；
71楼代码去掉蓝色代码，获取res的解密信息也是正常的；
但就是两个代码放到一起提升“未将对象引用设置到对象的实例 ”
通过几十次的调试定位，发现是 msgbox(rsp.result.DeptId) 、 msgbox(rsp.result.name) 的值不存在提示的报错。
但不知道为啥就rsp.result到了回调程序就没有值了？
或者说下面代码没有执行：
Dim client As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/topapi/v2/department/get")
Dim req As DingTalk.Api.Request.OapiV2DepartmentGetRequest = New DingTalk.Api.Request.OapiV2DepartmentGetRequest()
req.SetHttpMethod("POST")
req.DeptId = s
Dim rsp As DingTalk.Api.Response.OapiV2DepartmentGetResponse = client.Execute(req, access_token) ‘msgbox(access_token）也是正常的
Dim t As String = rsp.result.DeptId
加好友 
发短信
Post By：2021/2/26 7:11:00 [只看该作者]
