Public Class Doc
Public TypeDoc As String = ""
Public Property UserFields As New List(Of UserField)
End Class
Public Class UserField
Property Name As String = ""
Property Value As String = ""
End Class
Public Class Example
Public Sub test()
Dim d As New Doc
d.TypeDoc = "Order"
d.UserFields.Add(New UserField With {.Name = "U_Name", .Value = "Jonny"})
d.UserFields.Add(New UserField With {.Name = "U_Surname", .Value = "Goodman"})
Dim Ret As String = JsonConvert.SerializeObject(d)
End Sub
End Class
所需结果“ Ret”:
{
"TypeDoc": "Order",
"U_Name": "Jonny",
"U_Surname": "Goodman",
}
希望您能理解该示例,我想知道是否有可能得到此结果。 谢谢