C#和VB：Json串转换为DataTable

//JsonStr为Json字符串
       JArray array = JsonConvert.DeserializeObject(JsonStr) as JArray;//反序列化为数组
       if (array.Count > 0)
            {
                StringBuilder columns = new StringBuilder();
                DataTable table = new DataTable();
                JObject objColumns = array[0] as JObject;
                //构造表头
                foreach (JToken jkon in objColumns.AsEnumerable<JToken>())
                {
                    string name = ((JProperty)(jkon)).Name;
                    columns.Append(name + ",");
                    table.Columns.Add(name);
                }
                //向表中添加数据
                for (int i = 0; i < array.Count; i++)
                {
                    DataRow row = table.NewRow();
                    JObject obj = array[i] as JObject;
                    foreach (JToken jkon in obj.AsEnumerable<JToken>())
                    {

                        string name = ((JProperty)(jkon)).Name;
                        string value = ((JProperty)(jkon)).Value.ToString();
                        row[name] = value;
                    }
                    table.Rows.Add(row);
                }
          }

        Private Sub ConvertDataTable(ByVal jsonStr As String)
            Dim array As JArray = TryCast(JsonConvert.DeserializeObject(jsonStr), JArray)
            If array.Count > 0 Then
                Dim columns As StringBuilder = New StringBuilder()
                Dim table As DataTable = New DataTable()
                Dim objColumns As JObject = TryCast(array(0), JObject)

                For Each jkon As JToken In objColumns.AsJEnumerable
                    Dim name As String = (CType((jkon), JProperty)).Name
                    columns.Append(name & ",")
                    table.Columns.Add(name)
                Next

                For i As Integer = 0 To array.Count - 1
                    Dim row As DataRow = table.NewRow()
                    Dim obj As JObject = TryCast(array(i), JObject)

                    For Each jkon As JToken In obj.AsJEnumerable
                        Dim name As String = (CType((jkon), JProperty)).Name
                        Dim value As String = (CType((jkon), JProperty)).Value.ToString()
                        row(name) = value
                    Next
                    table.Rows.Add(row)
                Next
            End If
        End Sub