Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求教一段json解析代码


  共有2007人关注过本帖树形打印复制链接

主题：[求助]求教一段json解析代码
帅哥哟，离线，有人找我吗？
xubing051018
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00 		[求助]求教一段json解析代码  发帖心情 Post By：2024/2/29 18:30:00 [只看该作者]

接口返回来一段结果数据，格式如下

{"status":"0","message":"","result":"[{\"Row\":5,\"Column\":1,\"ItemNumber\":\"1000.01\",\"ItemName\":\"货币资金\",\"ItemDataTypeNumber\":\"2\",\"ItemDataTypeName\":\"期末数\",\"Year\":2023,\"Period\":10,\"Amount\":9758072.27,\"ItemFormula\":\"Item(1000.01,0,0,2)\"},{\"Row\":5,\"Column\":2,\"ItemNumber\":\"1000.01\",\"ItemName\":\"货币资金\",\"ItemDataTypeNumber\":\"1\",\"ItemDataTypeName\":\"年初数\",\"Year\":2023,\"Period\":10,\"Amount\":1323988.8,\"ItemFormula\":\"Item(1000.01,0,0,1)\"}]"}

我参照帮忙文档进行解析，
图片点击可在新窗口打开查看

解析代码如下，但是解析不成功，没有进入循环，请教是哪里弄错了。

Dim jo As JObject = JObject.Parse(json)   'json变量存储了接口返回的数据
For Each jt As JToken In jo("result")
    Output.Show(jt("Row").ToString & "|" & jt("ItemName").ToString)
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/29 20:28:00 [只看该作者]

Dim jo As JObject = JObject.Parse(json)   'json变量存储了接口返回的数据
For Each jt As JToken In jo("result")
Dim jo2 As JObject = JObject.Parse(jt.ToString)
    Output.Show(jo2("Row").ToString & "|" & jo2("ItemName").ToString)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
xubing051018
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00 		  发帖心情 Post By：2024/3/1 9:04:00 [只看该作者]

没有用呀，根本进不去for循环呀

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/1 9:13:00 [只看该作者]

Dim jo As JObject = JObject.Parse(json) 'json变量存储了接口返回的数据
Dim ja As JArray = Jarray.Parse(jo("result").ToString)
For Each jt As JToken In ja
    Output.Show(jt("Row").ToString & "|" & jt("ItemName").ToString)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
xubing051018
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00 		  发帖心情 Post By：2024/3/1 9:29:00 [只看该作者]

报错，未讲对象引用设置到对象的实例

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/1 9:39:00 [只看该作者]

这种提示一般是名称用错了，或者这个节点没有数据

 回到顶部
帅哥哟，离线，有人找我吗？
xubing051018
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00 		  发帖心情 Post By：2024/3/1 9:53:00 [只看该作者]

代码和执行画面入下，数据肯定是有的，有很多
图片点击可在新窗口打开查看

至于名称错了，帮忙看下代码，具体哪里没对
 回到顶部
帅哥哟，离线，有人找我吗？
xubing051018
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00 		  发帖心情 Post By：2024/3/1 9:59:00 [只看该作者]


[此贴子已经被作者于2024/3/1 10:00:24编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110597 积分：562881 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/3/1 10:00:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

 回到顶部
帅哥哟，离线，有人找我吗？
xubing051018
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：553 积分：4539 威望：0 精华：0 注册：2012/12/2 16:53:00 		  发帖心情 Post By：2024/3/1 10:04:00 [只看该作者]

Dim ja As JArray = JArray.Parse(ResultData("Result").Tostring)


运行到这句代码报错，未将对象引用设置到对象的实例
[此贴子已经被作者于2024/3/1 10:04:27编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10156 秒, 4 次数据查询