| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 这个json 为啥是空的 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143274) |
| -- 作者：blackzhu -- 发布时间：2019/11/19 11:12:00 -- 这个json 为啥是空的 Dim dt As DataTable = Nothing Dim cmd As New SQLCommand cmd.C cmd.CommandText = "SE LECT * FROM 功能导航 WHERE URL IS NOT NULL" dt = cmd.ExecuteReader Dim jo As New JObject Dim ja As New JArray Dim i As Integer = 0 Dim Arys As List(Of String()) Arys = dt.GetValues("一级菜单|大图标") \'列名用符号|分割 For Each Ary As String() In Arys ja.Add(New JObject) ja(i)("text") = Ary(0).ToString() ja(i)("iconCls") = Ary(1).ToString() Dim jja As New JArray ja(i)("children") = jja Dim j As Integer = 0 Dim Customers As List(Of String()) Customers = dt.GetValues("二级菜单|小图标", "一级菜单=\'" & Ary(0) & "\'") For Each Customer As String() In Customers jja.Add(New JObject) jja(j)("text") = Customer(0).ToString jja(j)("iconCls") = Customer(1).tostring() j += 1 Next i+=1 Next Dim json As String = jo.ToString Output.Show(json) 我想要这样的格式 { text: \'统计数据\', iconCls:
\'icon-sum\', children:
[{ text: \'统计销售量\' },{ text: \'统计销售额\' },{ text: \'统计市占率\', children:
[{ text: \'传统渠道\' },{ text: \'电商渠道\' }] }] },{ text: \'权限设置\', iconCls:
\'icon-edit\', children:
[{ text: \'数据录入权限\' },{ text: \'数据查询权限\' },{ text: \'数据统计权限\' }] } |
| -- 作者：blackzhu -- 发布时间：2019/11/19 11:22:00 -- 我搞错了对象,找到了 |
| -- 作者：有点蓝 -- 发布时间：2019/11/19 11:23:00 -- …… jo("text") = "统计数据" jo("children") = ja Dim json As String = jo.ToString Output.Show(json)
|
| -- 作者：blackzhu -- 发布时间：2019/11/19 14:21:00 -- Dim json As String = jo.ToString 这句错了 改成 ja.tostring 就可以了 |