测试了很多下，查询了好些资料，发觉不能够，所以这样如下处理，自己判断下标去取值。
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
加好友 
发短信
Post By：2013/9/5 20:46:00 [显示全部帖子]
