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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于JSON解译遍历

共有3106人关注过本帖树形打印复制链接主题：[求助]关于JSON解译遍历

2900819580

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1367 积分：9993 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助]关于JSON解译遍历 发帖心情

Post By：2019/8/20 14:50:00 [只看该作者]

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

有点酸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2019/8/20 15:22:00 [只看该作者]

Dim json As String = "{'等于':'=','不等于':'<>','大于':'>','小于':'<','大于等于':'>=','小于等于':'<=','包含':'like','不包含':'not like','空值':'null','非空值':'not null'}"

Dim jo As JObject = JObject.Parse(json)

For Each t As object In jo

output.show(t.key & ":" & t.value)

下一主题 >> << 上一主题

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