主题：[求助]datatable可否直接生成json

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76729&skin=0

或者循环每一行生成，如

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)