Question

我有一个shuffle这样的回复：

for col_trans in new_lst:
    print(' '.join(col_trans))
# red train
# orange car
# yellow airplane

我使用：

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")？

Answer 1

我不知道有任何方法可以自动执行此操作，因此可能是使用循环。

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的结构进行调整

将对象反序列化为DataTable

1 个答案: