Foxtable(狐表) → 用户栏目 → 专家坐堂 → JSON生成求助


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

主题：JSON生成求助
帅哥哟，离线，有人找我吗？
evolymft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		JSON生成求助  发帖心情 Post By：2022/6/11 12:57:00 [只看该作者]

相要的JSON如下：
{
"creator_userid": "WangYao",
"template_id": "C4RXoQQpfFUpneJVMndvE8eucHvUpNVkJ",
"use_template_approver": 1,
"choose_department": 42,
"apply_data": {
"contents": [{
"control": "Text",
"id": "Text-1654911692288",
"value": {
"text": "申报事由"
}
},
{
"control": "Text",
"id": "Text-1654822417085",
"value": {
"text": "物品名称"
}
},
{
"control": "Text",
"id": "Text-1654911736683",
"value": {
"text": "规格型号"
}
},
{
"control": "Number",
"id": "Number-1654831167670",
"value": {
"new_number": "37"
}
},
{
"control": "Money",
"id": "Money-1654911784445",
"value": {
"new_money": "888"
}
},
{
"control": "Textarea",
"id": "Textarea-1654831194633",
"value": {
"text": "可以不填写！"
}
}
]
}
}
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2022/6/11 13:01:00 [只看该作者]

我的代码如下：没达到想要的格式，请专家指点。谢谢！！！
Dim jo As New JObject
Dim ja1 As New JArray
Dim ja2 As New JArray
jo("creator_userid") = "WangYao"
jo("template_id") = "C4RXoQQpfFUpneJVMndvE8eucHvUpNVkJ"
jo("use_template_approver") = 1
jo("choose_department") = 42
jo("apply_data") = ja1
jo("contents") = ja2
ja2.Add( new jobject)
ja2(0)("control") = "Text"
ja2(0)("id")="Text-1654911692288"
ja2(0)("value")="申报事由"
ja2.Add( new jobject)
ja2(1)("control") = "Text"
ja2(1)("id")="Text-1654822417085"
ja2(1)("value") = "物品名称"
ja2.Add( new jobject)
ja2(2)("control") = "Text"
ja2(2)("id")="Text-1654911736683"
ja2(2)("value") = "规格型号"
ja2.Add( new jobject)
ja2(3)("control") = "Number"
ja2(3)("id")="Number-1654831167670"
ja2(3)("value") = "37"
ja2.Add( new jobject)
ja2(4)("control") = "Money"
ja2(4)("id")="Money-1654911784445"
ja2(4)("value") = "888"
ja2.Add( new jobject)
ja2(5)("control") = "Textarea"
ja2(5)("id")="Textarea-1654831194633"
ja2(5)("value") = "可以不填写！"
output.show(jo.tostring)
[此贴子已经被作者于2022/6/11 13:01:38编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/11 13:30:00 [只看该作者]

apply_data是对象，不是数组

jo("apply_data") = new jobject
jo("apply_data")("contents") = ja2
ja2.Add( new jobject)
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2022/6/11 13:43:00 [只看该作者]

"value": {
"text": "申报事由"
}


谢谢老师，还有这名没生成。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/11 13:52:00 [只看该作者]

有大括号的都是对象

ja2(0)("value")=new jobject
ja2(0)("value")("text") = 申报事由"
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2022/6/11 17:09:00 [只看该作者]

Dim jo As New JObject
Dim ja1 As New JArray
Dim ja2 As New JArray
Dim ja3 As New JArray
jo("creator_userid") = "JiangTao"
jo("template_id") = "C4RXoQQpfFUpneJVMndvE8eucHvUpNVkJ“
jo("use_template_approver") = 1
jo("apply_data") = New JObject
jo("apply_data")("contents") = ja2
Dim dr As Row  = Tables("表A").Rows(0)
ja2.Add( new jobject)
ja2(0)("control") = "Text"
ja2(0)("id")="Text-1654911692288"
ja2(0)("value")=New JObject
ja2(0)("value")("text")=dr("申报事由").tostring
ja2.Add( new jobject)
ja2(1)("control") = "Text"
ja2(1)("id")="Text-1654822417085"
ja2(1)("value")=New JObject
ja2(1)("value")("text")=dr("物品名称").tostring
ja2.Add( new jobject)
ja2(2)("control") = "Text"
ja2(2)("id")="Text-1654911736683"
ja2(2)("value")=New JObject
ja2(2)("value")("text")=dr("规格型号").tostring
ja2.Add( new jobject)
ja2(3)("control") = "Number"
ja2(3)("id")="Number-1654831167670"
ja2(3)("value")=New JObject
ja2(3)("value")("new_number") = dr("申报数量").tostring
ja2.Add( new jobject)
ja2(4)("control") = "Money"
ja2(4)("id")="Money-1654911784445"
ja2(4)("value")=New JObject
ja2(4)("value")("new_money") = dr("总金额").tostring
ja2.Add( new jobject)
ja2(5)("control") = "file"
ja2(5)("id")="File-1654935805391"
ja2(5)("files")=New JObject


ja2(5)("files")("file_id")=dr("附件ID").tostring '3M1IsxHFc9Gz7n3KTf0zNuYabooHy-N_BAXOgSc3qjolU5-CrFUwGuYQKfTnfjYHi
ja2.Add( new jobject)
ja2(6)("control") = "Textarea"
ja2(6)("id")="Textarea-1654831194633"
ja2(6)("value")=New JObject
ja2(6)("value")("text")=dr("备注").tostring

output.show(jo.tostring)
[此贴子已经被作者于2022/6/11 17:14:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2022/6/11 17:11:00 [只看该作者]

{
        "control": "file",
        "id": "File-1654935805391",
        "files": [
{
          "file_id": "3M1IsxHFc9Gz7n3KTf0zNuYabooHy-N_BAXOgSc3qjolU5-CrFUwGuYQKfTnfjYHi"
        }
]
      },


请问老师：如何将这一对[]用代码生成，谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2022/6/11 17:14:00 [只看该作者]

没学到位，试了多久还不行。谢谢指点！！！

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/11 17:39:00 [只看该作者]

ja2(5)("files")=New JArray
dim jo2 as new jobject
jo2("file_id") = "3M1IsxHFc9Gz7n3KTf0zNuYabooHy-N_BAXOgSc3qjolU5-CrFUwGuYQKfTnfjYHi"
ja2(5)("files").add(jo2)
[此贴子已经被作者于2022/6/11 17:39:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2022/6/11 17:47:00 [只看该作者]

谢谢老师

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