- 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=169710)
-- 发布时间：2021/6/27 15:23:00
-- 对接大屏json格式转换请教!
大屏需求格式 顺便推荐给需要大屏的地址 https://data.avuejs.com/柱状图格式
{
"categories": [
"苹果",
"三星",
"小米",
"oppo",
"vivo"
],
"series": [
{
"name": "手机品牌",
"data": [
1000879,
3400879,
2300879,
5400879,
3400879
]
}
]
}
狐表后台json转换
Dim cmd As New SQLCommand
Dim cmd As New SQLCommand
cmd.C
cmd.CommandTimeOut = 50000
cmd.CommandText = "S ELECT 任务,sum(数量) FROM [任务] GROUP BY [任务]"
Dim dt As DataTable = cmd.ExecuteReader()
json 格式理解比较抽象 上面的数据格式咋生成呢?
想了半天没有头绪
"categories" = 任务
"data"=数量
烦请指导一下!
-- 发布时间：2021/6/27 17:36:00
--
根据帮助，大概是这样
Dim jo As New JObject
Dim ja As New Jarray \'定义数组
ja.Add("苹果")
ja.Add("三星")
jo("categories") = ja \'将Roles设置为前面定义的数组
Dim ja2 As New JArray
Dim ja3 As New JArray
ja3.Add("1000879")
ja3.Add("3400879")
jo("series") = ja2 \'
ja2.Add(New JObject) \'给数组添加两个对象成员
ja2(0)("name") = "手机品牌"
ja2(0)("data") = ja3
-- 发布时间：2021/6/28 10:19:00
--
帮助写死的方法 与通过sql查询到数据再转换对应 还是有思维上的局限 烦请官方给予一下 通过 Dim dt As DataTable = cmd.ExecuteReader()
的写法
-- 发布时间：2021/6/28 10:45:00
--
比如
Dim jo As New JObject
Dim ja As New Jarray \'定义数组
for each dr as datarow in dt.datarows
ja.Add(cstr(dr("任务")))
next
-- 发布时间：2022/7/20 9:09:00
--
测试可用，学习了
