老师
我的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
结果如下:
-1
[{"_Identify":"-1","产品名称":"CAD","产品数量":"80","产品销售价":"260","MID":"14453","库存入库编号":"37393"},{"_Identify":"-2","产品名称":"
GL","产品数量":"6000","产品销售价":"7.3","MID":"14492","库存入库编号":"37224"}]
但后面就没反应了,也不会报错. 要如何才能解析出里面的明细?
[此贴子已经被作者于2020/3/7 18:50:09编辑过]