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)