vb版json格式，参数为datatable

Imports System.Web.Script.Serialization
Public Function dt_to_Json(ByVal dtb As DataTable) As String '读table data作为参数传入jss.serialize
Dim jss As JavaScriptSerializer = New JavaScriptSerializer
Dim dic As ArrayList = New ArrayList()
For Each item As DataRow In dtb.Rows
Dim drow As Dictionary(Of String, Object) = New Dictionary(Of String, Object)()
For Each col As DataColumn In dtb.Columns
drow.Add(col.ColumnName, item.Item(col.ColumnName))
Next
dic.Add(drow)
Next
Return jss.Serialize(dic)
End Function