- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于json问题的请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147015)
-- 发布时间：2020/3/7 18:48:00
-- 关于json问题的请教
老师
我的json 内容请看附件: 代码如下:
Dim s1 As String = UrlDecode(s)
Dim jo As JObject = JObject.Parse(s1)
Output.Show(jo("ddh").ToString)
Output.show(jo("ddlr").ToString)
For Each jt As JToken In jo("ddlr")
Output.Show(jt("_Identify"))
Next
Dim jo As JObject = JObject.Parse(s1)
Output.Show(jo("ddh").ToString)
Output.show(jo("ddlr").ToString)
For Each jt As JToken In jo("ddlr")
Output.Show(jt("_Identify"))
Next
结果如下:
-1
[{"_Identify":"-1","产品名称":"CAD","产品数量":"80","产品销售价":"260","MID":"14453","库存入库编号":"37393"},{"_Identify":"-2","产品名称":"
GL","产品数量":"6000","产品销售价":"7.3","MID":"14492","库存入库编号":"37224"}]
GL","产品数量":"6000","产品销售价":"7.3","MID":"14492","库存入库编号":"37224"}]
但后面就没反应了,也不会报错. 要如何才能解析出里面的明细?
[此贴子已经被作者于2020/3/7 18:50:09编辑过]
-- 发布时间：2020/3/7 23:13:00
--
老师,
看了论坛的例子,我已经会了.多谢!