主题：[求助]关于JSON解译遍历

Dim json As String = "{'等于':'=','不等于':'<>','大于':'>','小于':'<','大于等于':'>=','小于等于':'<=','包含':'like','不包含':'not like','空值':'null','非空值':'not null'}"
Dim jo As JObject = JObject.Parse(json)
Dim tb As Table = Tables(e.Form.Name & "_Table1")

For i As Integer = 0 To jo.count - 1
    Dim nr As Row = tb.AddNew
    nr("name") = jo(i).ToString
    nr("fh") = jo(i).ToString
Next