- 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=103022)
-- 发布时间：2017/6/29 11:03:00
-- [求助]企业号创建成员出错
For Each r In Tables("临时员工资料").Rows
If r("是否离职") = 0 And r.IsNull("手机号码") = False Then
dr = DataTables("下载users").Find("userid = \'" & r("工号") & "\'")
If dr Is Nothing Then
ul = "https://qyapi.weixin.qq.com/cgi-bin/user/create?access_token={0}"
Dim hc3 As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessToken")))
Dim jo3 As New JObject
jo3("userid") = CStr(r("工号"))
jo3("name") = CStr(r("姓名0"))
Dim dr1 As DataRow = DataTables("Departments").Find("[name] = \'" & r("部门") & "\'")
If dr1 IsNot Nothing
jo3("department") = CStr(dr1("id")) \'部门ID为3和9
Else
jo3("department") = "1"
End If
jo3("mobile")= CStr(r("手机号码"))
jo3("gender") = "1"
hc3.Content = Jo3.ToString
MessageBox.show(jo3.ToString)
jo3 = JObject.Parse(hc3.GetData)
If jo3("errcode") = "0" Then
Else
MessageBox.Show(jo3.ToString)
End If
End If
End If
Next
以上是创建的代码，下面是两个弹窗：
此主题相关图片如下：qq图片20170629110012.png
此主题相关图片如下：qq图片20170629105957.png
满足帮助说的条件啊。。。为何创建不起：
1、创建成员可以指定的属性很多，但是只有userid、name和department三个属性是必须指定的。
2、mobile、email和wexindid三者必须至少指定一个。
2、mobile、email和wexindid三者必须至少指定一个。
-- 发布时间：2017/6/29 12:13:00
--
department 赋值错误
http://qydev.weixin.qq.com/wiki/index.php?title=%E7%AE%A1%E7%90%86%E6%88%90%E5%91%98
-- 发布时间：2017/6/29 14:46:00
--
jo3("department") = New Jarray(CStr(dr1("id")),10) \'部门ID为3和9
改成这样，又报60011，请求失败的提示，求解？
-- 发布时间：2017/6/29 15:00:00
--
为什么要加引号？改成
jo3("department") = New Jarray(dr1("id"),10)
或者
jo3("department") = New Jarray(cint(dr1("id")),10)
[此贴子已经被作者于2017/6/29 15:00:46编辑过]