以下是引用有点甜在2013-9-5 22:11:00的发言：
测试了很多下，查询了好些资料，发觉不能够，所以这样如下处理，自己判断下标去取值。
Dim s As String = "{'face':[{'a':'a'}, {'b':{'bb':'bb'}}], 'test':'test'}"
Dim json As String = s
Dim ScriptControl As Object,data As Object,JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
.Language = "Javascript"
.Timeout = -1
.AddCode(JscriptCode)
data = .Run("toObject", json)
End With
Dim count As Integer = 0
For Each i As object In data.face
If count = 1 Then
msgbox(i.b.bb)
End If
count += 1
Next
按照您这个思路已经实现我的功能了，现在有一个地方不理解为什么不能指定位置呢？
比如：
Dim i As object = data.face
MessageBox.Show(i.attribute.age.range)
加好友 
发短信
Post By：2013/9/5 22:36:00 [只看该作者]
