| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- JSON生成求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177946) |
| -- 作者：evolymft -- 发布时间：2022/6/11 12:57:00 -- JSON生成求助 相要的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 -- 发布时间：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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2022/6/11 13:30:00 -- apply_data是对象，不是数组 jo("apply_data") = new jobject jo("apply_data")("contents") = ja2 ja2.Add( new jobject) |
| -- 作者：evolymft -- 发布时间：2022/6/11 13:43:00 -- "value": {
"text": "申报事由"
} 谢谢老师，还有这名没生成。
|
| -- 作者：有点蓝 -- 发布时间：2022/6/11 13:52:00 -- 有大括号的都是对象 ja2(0)("value")=new jobject ja2(0)("value")("text") = 申报事由"
|
| -- 作者：evolymft -- 发布时间：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 -- 发布时间：2022/6/11 17:11:00 -- { "control": "file", "id": "File-1654935805391", "files": [
{ "file_id": "3M1IsxHFc9Gz7n3KTf0zNuYabooHy-N_BAXOgSc3qjolU5-CrFUwGuYQKfTnfjYHi" }
] }, 请问老师：如何将这一对[]用代码生成，谢谢。
|
| -- 作者：evolymft -- 发布时间：2022/6/11 17:14:00 -- 没学到位，试了多久还不行。谢谢指点！！！ |
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2022/6/11 17:47:00 -- 谢谢老师 |