以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于JSON解译遍历  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139740)
--  作者：2900819580
--  发布时间：2019/8/20 14:50:00
--  [求助]关于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
--  作者：有点酸
--  发布时间：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