和第三方系统对接接口 需要抛转数据给第三方 如何把DataTables("表A")的所有数据转为json
Dim dt As DataTable = DataTables("表A")
dt.Find("第一列 Is Not Null")
Dim jo As New JObject
Dim ja As New JArray
jo("dh") = "001"
jo("zt") = "1"
jo("sj") = ja '
ja.Add(New JObject)
For Each dr As DataRow In dt.DataRows
'给数组添加两个对象成员
ja(0)("name") = dr("第一列").ToString
ja(0)("sl") = dr("第二列").ToString
Next
Output.Show(jo.ToString)