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() & "] , "
Next
报错 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(" ")
Next
Next
这样使用 as jProperty 却是正常的
加好友 
发短信
Post By：2022/1/14 8:34:00 [只看该作者]
