如何遍历日志表，生成josn文件内容呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

现有一表“日志”有如下字段和内容

此主题相关图片如下：1122.png

Dim jo As New JObject

Dim ja As New JArray

jo("danweiname") = "AAA"

jo("name") = "BB"

jo("date") = ja '

ja.Add(New JObject) '给数组添加两个对象成员

ja.Add(New JObject)

ja(0)("time") = "2020-12-11"

ja(0)("context") = "下午"

ja(1)("time") = "2020-12-12"

ja(1)("context") = "中午"

Output.Show(jo.ToString)

上述代码可以固定生成

{

"danweiname": "AAA",

"name": "BB",

"date": [

{

"time": "2020-12-11",

"context": "下午"

{

"time": "2020-12-12",

"context": "中午"

}

]

}

随着日志表记录越来越多这个相对固定生成josn的形式就不大方便了

有没有办法实现如下功能呢？

1、根据日志表中的danweiname name time三个字段作为条件分类生成context内容

2、先判断danweiname 如上josn结果先显示单位名称（若遇多个单位：需要先一个单位显示完毕了才生成下一个单位的）

3、判断name，如上josn结果根据单位名称显示name （若遇一个单位，日志记录里有多个name值相同的，先显示完毕了才显示下一个name的相关内容）

4、判断time且满足danweiname name的条件时，如上josn结果根据time先后顺序进行数据生成并显示context的对应值

主题：如何遍历日志表，生成josn文件内容呢？