我无法在列表框中显示 tongits,black jack, 21
我只能在列表框中显示最喜欢的游戏、游戏
以及如何计算问卷中的问题数量?
json数据
{
"id": 1,
"status": "DRAFT",
"title": "GAMES",
"author": "foo",
"questionnaires": [
{
"id": 1,
"question": "Favorite game",
"answers": [
"tongits",
"black jack",
"21"
]
},
{
"id": 2,
"question": "game",
"answers": [
"basketball",
"volleyball"
]
}
]
}
这是我在 VB 中的代码
Dim o As JObject = JObject.Parse(json)
Dim results As List(Of JToken) = o.Children().ToList
For Each item As JProperty In results
item.CreateReader()
Select Case item.Name
Case "questionnaires"
Dim question As String
For Each subitem As JObject In item.Values
listbox1.item.add(question)
Next
End Select
Next
很乐意感谢谁会帮助