请教:JSON 生成与解析问题:'-------这是查询网页中的：生成或解析JSON 语句开始
Dim str01 As String = Functions.Execute("item_jsonLine",e,power0)
If str01>"" Then
wb.insertHTML("<p>库存变动明细记录</p>")
wb.insertHTML("<p>操作日期|操作状态|数量|操作员|对方</p>")
Dim ja1 As JArray = JArray.Parse(str01)
For i As Integer = 0 To ja1.count - 1
' wb.insertHTML(jt("date2").ToString() & "|" & jt("state2").ToString() & "|" & jt("qty2").ToString() & "|" & jt("user21").ToString() & "|" & jt("user22").ToString()) ‘报错
wb.insertHTML(ja1(i).ToString()) '只有这句有结果，但我不我想要的。
'wb.insertHTML(ja1(i)("date2").ToString()) ‘报错
Next
End If
'------------以下是自定义函数（item_jsonLine）中的生成JSON 语句
Dim dr9 As List(of Data Row) = Data Tables("json_table").Select("","data1 Desc")
If dr9.Count > 0 Then
Dim i1 As Integer=0
Dim ja1 As New Jarray
Dim ja As New Jobject
For Each dr0 As DataRow In dr9
Dim a1 As Datetime =dr0("data1")
Dim a2 As String =dr0("state1")
Dim a3 As Integer=dr0("qty1")
Dim a4 As String=dr0("user1")
Dim a5 As String=dr0("user2")
ja("date2") = a1
ja("state2") =a2
ja("qty2") =a3
ja("user21") =a4
ja("user22") =a5
ja1.Add(New JObject)
ja1(i1)("name")=ja
i1=i1+1
Next
str01 = ja1.ToString()
End If
Return str01
’---------以下目前我能看到的结果
库存变动明细记录
操作日期|操作状态|数量|操作员|对方
{ "name": { "date2": "2017-12-03T00:00:00", "state2": "有单接收", "qty2": 1, "user21": "张课长", "user22": "N0028" } }{ "name": { "date2": "2017-12-03T00:00:00", "state2": "有单接收", "qty2": 1, "user21": "张课长", "user22": "N0028" } } { "name": { "date2": "2017-12-03T00:00:00", "state2": "有单接收", "qty2": 1, "user21": "张课长", "user22": "N0028" } }
‘----------我希望看到的结果如实例：本页地址：http://www.foxtable.com/mobilehelp/scr/0252.htm
请专家指教一下：
1.我不懂如何才能输出正确结果，
2.是否是我的JSON 生成情况也有错，行与行之间少了个，号
先谢谢了
[此贴子已经被作者于2017/12/5 10:46:14编辑过]
加好友 
发短信
Post By：2017/12/5 10:46:00 [只看该作者]
