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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → json生成

共有1946人关注过本帖树形打印复制链接主题：json生成

有点蓝

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

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/7/11 14:42:00 [显示全部帖子]

这个不影响，js支持这种用法。

生成json方法参考

......

Case "getdata.htm"

Dim json As String

If e.GetValues("type") = "1" Then

json = FileSys.ReadAllText("d:\web\lib\data1.txt")

Else

Dim jo As New JObject

Dim ja As New Jarray '定义数组

Dim arr() As String = {"北京","天津","上海","重庆","河北","河南","云南"}

For Each csh As String In arr

Dim j2 As new JObject

j2("name") = csh

j2("value") = Rand.Next(3,20)

ja.Add(j2)

jo("foxtable") = ja

json = jo.ToString

End If

e.WriteString(json )

......

如果是查表把上面代码的数组和赋值改为从数据库查询的结果就可以了

有点蓝

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

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/7/11 21:22:00 [显示全部帖子]

这个是数组，也可以通过json返回，和1楼的用法是一样的。

{

mydata: [

[[28604,77,17096869,'Australia',1990],[31163,77.4,27662440,'Canada',1990],[1516,68,115460........

}

......

var data = json对象.mydata

主题：json生成