Jobject 遍历问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim jo As JObject = args(1)

' 转为Object

Dim jc As JObject = JObject.Parse(jo("content").ToString())

Dim strSQL As String = ""

' 先查询表格,以便处理日期列

strSQL = "Select Top 1 "

For Each jp As JProperty In jc

strSQL = strSQL & "[" & jp.Name.ToString() & "] , "

报错 JToken 不能转为 JProperty

改用 as JToken 报 JToken不能转为JToken

------

Dim arrData As New JArray

Dim jObj As New JObject

jObj("tableName") = "bm_user"

Dim objContent As new JObject

objContent("id") = 1

objContent("name") = "fzr"

jObj("content") = objContent

jObj("where") = "keyong = 1"

arrData.Add(jObj)

Dim jObj1 As New JObject

jObj1("tableName") = "bm_units"

Dim objContent1 As new JObject

objContent1("id") = 2

objContent1("name") = "yy"

jObj1("content") = objContent1

jObj1("where") = "keyong = 2"

arrData.Add(jObj1)

'Dim js As String = arrData.ToString()

'output.show(js)

For Each jt As JToken In arrData

output.show(jt.ToString())

If jt("user") Is Nothing Then

' MessageBox.Show("user键值不存在!")

End If

For Each jp As JProperty In jt

output.show(jp.ToString())

' output.show(jp("where").ToString())

' output.show(jp("tableName").ToString())

output.show(" ")

这样使用 as jProperty 却是正常的

主题：Jobject 遍历问题