请教生成json问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)

主题：请教生成json问题