VB.net DataSet和JSON形式的数据相互转换

 　 '''注意：需要引入“System.Web.Extensions”包
    ''' <summary>
    ''' 把DataSet形式的数据转换成JSON形式的数据
    ''' </summary>
    ''' <param name="ds">DataSet形式的数据</param>
    ''' <returns>JSON形式数据</returns>
    ''' <remarks></remarks>
    Function DataSetToJSON(ds As DataSet) As String
        Dim dict As New Dictionary(Of String, Object)

        For Each dt As DataTable In ds.Tables
            Dim arr(dt.Rows.Count) As Object

            For i As Integer = 0 To dt.Rows.Count - 1
                If i = 0 Then
                    Dim arrCol(dt.Columns.Count - 1) As Object
                    For j As Integer = 0 To dt.Columns.Count - 1
                        arrCol(j) = dt.Columns(j).ColumnName
                    Next
                    arr(i) = arrCol
                End If

                Dim arrItem(dt.Rows(i).ItemArray.Length - 1) As Object
                For j As Integer = 0 To dt.Rows(i).ItemArray.Length - 1
                    arrItem(j) = dt.Rows(i).ItemArray(j).ToString
                Next

                arr(i + 1) = arrItem

            Next