Dim r As Row = CurrentTable.Current
Dim jo As New JObject
jo("userid") = r("userid")
jo("name") = r("name")
jo("department") = r("department")
jo("mobile")= r("mobile")
MessageBox.Show(jo.ToString)
上面这段代码为什么错了??求解
帮助里的代码:
但是有一个很奇怪的现象,直接将JSON成员和字符串组合会出错,例如以下代码是无法执行的的:
Dim json As String = "{'name':'李云龙','age':'36'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show("姓名:" & jo("name") & " 年龄:" & jo("age"))
必须改为:
Dim json As String = "{'name':'李云龙','age':'36'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show("姓名:" & jo("name").ToString() & " 年龄:" & jo("age").ToString())
那这种情况我要怎么做?我用jo("userid").ToString()= r("userid") 肯定也不对啊
[此贴子已经被作者于2017/3/20 21:59:43编辑过]