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


  共有1668人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1302 积分:9451 威望: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)
Next

 回到顶部