主题：请教:JSON 生成与解析问题！

生成

Dim jo As New JObject
Dim ja As New JArray
Dim drs As List(of DataRow) = DataTables("表A").Select("")
jo("count") = drs.count
jo("data") = ja

Dim i As Integer = 0
For Each dr As DataRow In drs
    ja.Add( new jobject)
    ja(i)("第一列") = dr("第一列").tostring
    ja(i)("第二列") = dr("第二列").tostring
    i += 1
Next
output.show(jo.tostring)

读取，参考

For Each o As JToken In jo("data")
    output.show(o("第一列").tostring & o("第二列").tostring)
next