Dim dt As DataTable = Nothing
Dim foxdt As DataTable = Nothing
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Se lect 主菜单 AS menuname,icon from 系统授权"
dt = cmd.ExecuteReader
Dim ja As New JArray
Dim i As Integer
Dim Arys As List(Of String())
Arys = dt.GetValues("menuname|icon") '列名用符号|分割
For Each Ary As String() In Arys
ja.Add(New JObject)
ja(i)("menuid") = i.Tostring
ja(i)("menuname") = Ary(0).ToString
ja(i)("icon") = Ary(1).ToString
i = i + 1
Next
Dim jo As New JObject
jo("menus") = ja
cmd.CommandText = "Sel ect 模块名称 AS menuname,icon,url from 系统授权"
foxdt = cmd.ExecuteReader
Arys = foxdt.GetValues("menuname|icon|url") '列名用符号|分割
For Each Ary As String() In Arys
ja.Add(New JObject)
ja(i)("menuid") = i.Tostring
ja(i)("menuname") = Ary(0).ToString
ja(i)("icon") = Ary(1).ToString
ja(i)("url") = Ary(2).ToString
i = i + 1
Next
jo("menus") = ja
Dim json As String = jo.ToString
''e.WriteString(json)
MsgBox(json)
我需要的格式是:
"menus": [
{
"menuid":
"1", "icon":
"icon-sys", "menuname":
"业务管理",
"menus": [
{ "menuid":
"12", "menuname":
"意向客户登记", "icon":
"icon-add", "url":
"layout-1.html" },
{ "menuid":
"13", "menuname":
"分诊接待", "icon":
"icon-users", "url":
"layout-2.html" },
{ "menuid":
"14", "menuname":
"现场咨询", "icon":
"icon-role", "url":
"layout-3.html" },
{ "menuid":
"15", "menuname":
"权限设置", "icon":
"icon-set", "url":
"demo.html" },
{ "menuid":
"16", "menuname":
"系统日志", "icon":
"icon-log", "url":
"demo1.html" }
]
}
]
加好友 
发短信
Post By：2018/10/12 14:00:00 [只看该作者]
