| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何根据json文件在狐表中生成企业微信审批流程 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172502) |
| -- 作者：evolymft -- 发布时间：2021/10/15 19:53:00 -- 如何根据json文件在狐表中生成企业微信审批流程 https://work.weixin.qq.com/api/doc/90000/90135/91853 已经编辑好json数据，在上面网页可以正常生成企业微信审批流程。 现在如何在狐表中生成企业微信审批流程，以便于调用狐表数据库数据。 谢谢。
|
| -- 作者：有点蓝 -- 发布时间：2021/10/16 9:10:00 -- 参考：http://www.foxtable.com/mobilehelp/topics/0167.htm Dim jo As New JObject Dim ja As New Jarray For Each r As Row In Tables("摘要信息").rows Dim jo1 As new JObject jo1("summary_info") = New Jarray jo1("summary_info").Add(New JObject) jo1("summary_info")(0)("text") = r("摘要") jo1("summary_info")(0)("lang") = r("语言") ja.Add(jo1) Next jo("summary_list") = ja
|
| -- 作者：evolymft -- 发布时间：2021/10/16 11:32:00 -- 谢谢老师，已经可以从狐表调取数据，也已经生成json文件。现在是如何发到企业微信审批流程里？ |
| -- 作者：有点蓝 -- 发布时间：2021/10/16 11:54:00 -- 调用接口参考帮助的微信接口用法，基本一样，比如：http://www.foxtable.com/mobilehelp/topics/0166.htm |
| -- 作者：evolymft -- 发布时间：2021/10/19 13:43:00 -- Dim e As RequestEventArgs = args(0) Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/oa/applyevent?access_token={0}" Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken"))) hc.Content = jo.ToString With wb.AddButtonGroup("form1","btn1",True) .Add("btn2", "提交流程", "button") End With e.WriteString(wb.Build) End If
[此贴子已经被作者于2021/10/19 14:42:34编辑过]
|
| -- 作者：evolymft -- 发布时间：2021/10/19 13:44:00 -- 请老师指点，上面代码调用接口错在哪里？谢谢 |
| -- 作者：evolymft -- 发布时间：2021/10/19 13:48:00 -- https://open.work.weixin.qq.com/wwopen/devtool/interface?doc_id=17891 5楼的JSON文件在上面的网址是可以提交成功的。
|
| -- 作者：有点蓝 -- 发布时间：2021/10/19 13:54:00 -- 都没有调用接口 Dim jo As JObject = JObject.Parse(json) hc.Content = jo.ToString dim ret as string = hc.GetData() msgbox(ret) 查看返回结果是否正常
|
| -- 作者：evolymft -- 发布时间：2021/10/19 14:42:00 -- 谢谢老师，已正常调用，但是JSON中的文本被读成了乱码。 |
| -- 作者：有点蓝 -- 发布时间：2021/10/19 14:43:00 -- 编码问题：http://www.foxtable.com/webhelp/topics/0344.htm |