此主题相关图片如下: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编辑过]