VB.NET中如何将Datatable转换为Json格式数据

需要引入

Imports System.Web.Script.Serialization
Imports System.Collections.Generic  

    Public Function Dtb2Json(ByVal dtb As DataTable) As String
        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