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

--  作者：mmd888 --  发布时间：2018/8/13 11:08:00 --  json数据 如何遍历所有的键 Dim json As String = "{\'name\':\'李云龙\',\'age\':\'36\'}" Dim jo As JObject = JObject.Parse(json) Output.Show(jo("name")) Output.Show(jo("age")) 就像这个例子中，如何用遍历的方法得到所有的键呢？ 我想达到的效果是写了一个自定义函数，用于存储数据， 这个函数给了2个参数，第一个是存放的表名，第二个是一个json 对象，指的是要存的内容，所以每次json内容不一样，怎么来遍历json的键呢？

--  作者：有点甜 --  发布时间：2018/8/13 12:13:00 --   Dim json As String = "{\'name\':\'李云龙\',\'age\':\'36\'}" Dim jo As JObject = JObject.Parse(json) For Each o As object In jo     msgbox(o.key & " " & o.value) Next

--  作者：mmd888 --  发布时间：2018/8/13 12:24:00 --   谢谢