以文本方式查看主题 -  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=145586)

--  作者：chongziwang --  发布时间：2020/1/31 23:51:00 --  关于json输出问题 Dim ss As String() = {"张三","李四","王五","赵六"} Dim ja As new JArray Dim jo As new JObject For Each s As String In ss     jo("name") = s     ja.add(jo) Next Output.Show(CompressJson(ja)) 结果 [{"name":"赵六"},{"name":"李四"},{"name":"王五"},{"name":"赵六"}] 张三不见了，赵六多了一个，是什么原因啊

--  作者：有点蓝 --  发布时间：2020/2/1 9:14:00 --   Dim ss As String() = {"张三","李四","王五","赵六"} Dim ja As new JArray Dim jo As new JObject For Each s As String In ss     jo = new JObject     jo("name") = s     ja.add(jo) Next Output.Show(CompressJson(ja))

--  作者：chongziwang --  发布时间：2020/2/1 11:41:00 --   谢谢老师