貌似给的数据结构和json不太一样
Dim jo As New JObject
Dim jo1,jo2 As JObject
Dim ja,ja2 As JArray
For Each s As String In DataTables("Sheet1").GetValues("oEnglishName","","序号")
jo(s) = New JObject
ja = new JArray
For Each s1 As String In DataTables("Sheet1").GetValues("一级菜单","oEnglishName='" & s & "'","序号")
Dim dr As DataRow = DataTables("Sheet1").Find("oEnglishName='" & s & "' and 一级菜单='" & s1 & "'")
jo1 = New JObject
jo1("title") = s1
jo1("icon") = cstr(dr("icon"))
ja2 = new JArray
For Each s2 As String() In DataTables("Sheet1").GetValues("二级菜单|url","oEnglishName='" & s & "' and 一级菜单='" & s1 & "'")
jo2 = New JObject
jo2("title") = s2(0)
jo2("href") = s2(1)
ja2.add(jo2)
jo1("menu") = ja2
Next
ja.add(jo1)
Next
jo(s)("menu") = ja
Next
Output.Show(jo.ToString)
加好友 
发短信
Post By：2019/12/10 11:41:00 [显示全部帖子]
