62,243
社区成员




Dim o = New With {.id = "111"}
Dim _json As New System.Runtime.Serialization.Json.DataContractJsonSerializer(o.GetType)
Using _ms As New IO.MemoryStream
_json.WriteObject(_ms, o) '运行至此报错,提示无法序列化 AnonymousType
Response.Write(Text.Encoding.UTF8.GetString(_ms.ToArray))
_ms.Close()
End Using
Response.Write(Newtonsoft.Json.JsonConvert.SerializeObject(o))
Module Module1
Sub Main()
Dim o = New aa With {.id = "111"}
Dim _json As New System.Runtime.Serialization.Json.DataContractJsonSerializer(o.GetType)
Using _ms As New IO.MemoryStream
_json.WriteObject(_ms, o)
Console.WriteLine(Text.Encoding.UTF8.GetString(_ms.ToArray))
End Using
Console.ReadKey()
End Sub
End Module
Class aa
Public id As String
End Class