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


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

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


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

错误：add不是JSON的专成员。
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

ja2(5))("files")=New JArray   错误提示：表达式不是方法

 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim jo As New JObject
Dim ja1 As New JArray
Dim ja2 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") = format(dr("总金额"),"#.00").tostring
ja2.Add( new jobject)
ja2(5)("control") = "file"
ja2(5)("id")="File-1654935805391"
ja2(5)("value")=New JObject
ja2(5)("value")("files")=New JObject
ja2(5)("value")("files")("file_id")=dr("附件ID").tostring 
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)
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

{
        "control": "file",
        "id": "File-1654935805391",
        "value": {
          "files": [
{
            "file_id": "3ib7pR6zeQZy-Sl2N9LCPIToHDp7t7IKcXqp-z8AJ4o-EjEdmzf6ZG6lqHa7WaxWv"
          }
]
        }
      },

现在就不能实现这一对[ ]了,请专家指点，谢谢！！！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

ja2(5)("value")("files")=New JArray
dim jo2 as new jobject
jo2("file_id") = "3M1IsxHFc9Gz7n3KTf0zNuYabooHy-N_BAXOgSc3qjolU5-CrFUwGuYQKfTnfjYHi"
ja2(5)("value")("files").add(jo2)
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Add不是Newtonsoft.json.linq.jtoken的成员

ja2(5)("value")("files").add(jo2) 此句报错。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dim ja8 as New JArray
dim jo2 as new jobject
jo2("file_id") = "3M1IsxHFc9Gz7n3KTf0zNuYabooHy-N_BAXOgSc3qjolU5-CrFUwGuYQKfTnfjYHi"
ja8.add(jo2)
ja2(5)("value")("files")=ja8 
 回到顶部
帅哥哟，离线，有人找我吗？
evolymft
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00 		  发帖心情 Post By：2022/6/13 9:11: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.04688 秒, 4 次数据查询