将JSON字符串转换为VB DataTable（Newtonsoft.Json）

Question

我的字符串看起来像这样

[{'Column1': 'c1r1', 'Column2': 'c2r1'},{'Column1': 'c1r2', 'Column2': 'c2r2'}]

我想在Visual Basic中使用列＆＃39;第1列和第3列来使其成为数据表。和第2栏＆＃39;。我试过了

Newtonsoft.Json.JsonConvert.DeserializeObject(SaveTableJSON, GetType(System.Data.DataTable))

但它会产生错误

Newtonsoft.Json.JsonSerializationException: Additional text found in JSON string after finishing deserializing object.

这很好用：

Newtonsoft.Json.JsonConvert.DeserializeObject(SaveTableJSON)

Answer 1

尝试使用TryCast
试试这个功能

 Public Function DeserializeDataTable(json As String) As DataTable
        Dim dt As DataTable
        dt = TryCast(JsonConvert.DeserializeObject(json, (GetType(DataTable))), DataTable)
        Return dt
 End Function

来自互联网：）