- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教生成json问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159591)
-- 发布时间：2020/12/31 12:21:00
-- 请教生成json问题
此主题相关图片如下：qq截图20201231121753.jpg
你好,老师,麻烦帮我看一下,代码要如何修改,才可以实现图片上描述的
Dim jo As New JObject
Dim ja As New JArray
jo("mpr") = "赵刚"
jo("liebiao") = ja \'
ja.Add(New JObject) \'给数组添加两个对象成员
ja.Add(New JObject)
ja(0)("name") = "李云龙"
ja(0)("userid") = "li"
ja(0)("moshi") = "danren"
ja(0)("sp") = "0"
ja(0)("spsj") = ""
Output.Show(jo.ToString)
Dim jo1 As New JObject
Dim ja1 As New JArray
jo1("moshi") = "huoqian"
jo1("qingdan") = ja1 \'
ja1.Add(New JObject) \'给数组添加两个对象成员
ja1(0)("name") = "张三"
ja1(0)("userid") = "zs"
ja1(0)("sp") = "0"
ja1(0)("spsj") = ""
ja1.Add(New JObject)
ja1(1)("name") = "李四"
ja1(1)("userid") = "ls"
ja1(1)("sp") = "0"
ja1(1)("spsj") = ""
Output.Show(jo1.ToString)
[此贴子已经被作者于2020/12/31 12:21:09编辑过]
-- 发布时间：2020/12/31 14:01:00
--
Dim jo As New JObject
Dim ja As New JArray
jo("mpr") = "赵刚"
jo("liebiao") = ja \'
ja.Add(New JObject) \'给数组添加两个对象成员
ja(0)("name") = "李云龙"
ja(0)("userid") = "li"
ja(0)("moshi") = "danren"
ja(0)("sp") = "0"
ja(0)("spsj") = ""
Dim jo1 As New JObject
Dim ja1 As New JArray
jo1("moshi") = "huoqian"
jo1("qingdan") = ja1 \'
ja1.Add(New JObject) \'给数组添加两个对象成员
ja1(0)("name") = "张三"
ja1(0)("userid") = "zs"
ja1(0)("sp") = "0"
ja1(0)("spsj") = ""
ja1.Add(New JObject)
ja1(1)("name") = "李四"
ja1(1)("userid") = "ls"
ja1(1)("sp") = "0"
ja1(1)("spsj") = ""
Output.Show(jo1.ToString)
ja.Add(jo1)
Output.Show(jo.ToString)