Десериализовал объект в DataTable

Question

У меня есть JSON ответ, подобный этому:

{  "cod": "OK", 
"list": [
    {  "date": "31\/10\/2018", "count": "109",  "name": "PAUL"  },
    {  "date": "30\/09\/2018", "count": "103",  "name": "LUKE"  }
]}

Я использую:

 Dim jss As New JavaScriptSerializer
 Dim Response = jss.Deserialize(Of Object)(strResponse)
 Dim Cod = Response("cod")

Тогда:

Dim Lista_documents = Response("list")

А у меня есть объект со списком документов.
Как я могу заполнить новый DataTable?

Answer 1

Мне неизвестны какие-либо методы, которые будут делать это автоматически, поэтому, вероятно, с помощью Loop.

Dim table As New DataTable
table.Columns.Add("date", GetType(Date))
table.Columns.Add("count", GetType(Integer))
table.Columns.Add("name", GetType(String))

For Each Li In Lista_documents
    table.Rows.Add(Li("date"), Li("count"), Li("name"))
Next

Отрегулируйте в зависимости от того, как структурированы ваши Lista_documents