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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Jobject 遍历问题

共有3382人关注过本帖树形打印复制链接主题：Jobject 遍历问题

qq252476275

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

加好友

发短信

等级：幼狐帖子：196 积分：1429 威望：0 精华：0 注册：2020/5/23 14:56:00

Post By：2022/1/14 16:57:00 [只看该作者]

这样可以执行

For Each jt As JProperty In jb.Properties

output.show("key2 : " & jt.name.ToString())

output.show("value2 : " & jt.value.ToString())

老的项目里，这样执行，也可以

arrContent(i) ：

js前端代码

var addData = {

角色ID : roleID,

控件ID : addControlIDs[i],

可用 : 1,

创建者 : creater,

修改者 : creater

};

ajaxData.content.push( addData);

foxtable代码：

For Each jp As JProperty In arrContent(i)

' ACCESS的日期没有处理

If dt.DataCols(jp.name).IsDate Then

If jp.value.ToString.Replace("'","''") = "" Then

strValue = strValue & "[" & jp.name.ToString & "] = null ,"

Else ' 未考虑access的日期方式 "#2021/03/20#"

If jp.value.ToString = "needServerTime" Then ' 如果需要服务器时间,则使用, 否则使用前端值

strValue = strValue & "[" & jp.name.ToString & "] = '" & Time & "',"

Else

strValue = strValue & "[" & jp.name.ToString & "] = '" & jp.value.ToString.Replace("'","''") & "',"

End If

reachtone

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

加好友

发短信

等级：版主帖子：1993 积分：19403 威望：0 精华：20 注册：2008/9/2 10:09:00

Post By：2022/1/14 17:17:00 [只看该作者]

有本现成的书，都已经讲的清清楚楚了：

此主题相关图片如下：p60.jpg

qq252476275

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

加好友

发短信

等级：幼狐帖子：196 积分：1429 威望：0 精华：0 注册：2020/5/23 14:56:00

Post By：2022/1/15 7:41:00 [只看该作者]

' jsonString 组织好的json字符串

'1、jsonString 是数组

dim jsonString as String

dim ja as JArray = JArray.Parse(jsonString)

'JSON数组的对象为JArray，数组成员的类型为JToken，所以也可以用下面的代码遍历JSON数组:

For each jt as JToken in ja

output.show(jt.ToString())

'直接调用某个元素, 从0开始

output.show(ja(0))

'2、jsonString 是字典

dim jsonString as String

js"x1"" : ""y1"" , ""x2"" : ""y2"", ""x3"":""y3""}"

dim jb as JObject = JArray.Parse(jsonString)

For each jp as object in jb

output.show(jp.key.ToString())

output.show(jp.value.ToString())

' 直接调用某个键值

output.show(jb("x1"))

' 判断某个键值是否存在

If jb("xx") IsNot Nothing Then

output.show("存在xx键值")

Else

output.show("不存在xx键值")

End If

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

总数 13 上一页 1 2

主题：Jobject 遍历问题