For Each s As String In DataTables("menu").GetValues("menu0","","id")
For Each s1 As String In DataTables("menu").GetValues("menu1","menu0='" & s & "'","id")
Dim dr As DataRow = DataTables("menu").Find("menu0='" & s & "' and menu1='" & s1 & "'")
jo("menuInfo")(s) = New JObject
ja = new JArray
jo("menuInfo")(s)("title") = s1
jo("menuInfo")(s)("icon") = cstr(dr("icon0"))
ja1 = new JArray
For Each s2 As String() In DataTables("menu").GetValues("menu2|icon2|target","menu0='" & s & "' and menu1='" & s1 & "'")
jo1 = New JObject
jo1("title") = s2(0)
jo1("href") = ""
jo1("icon") = s2(1)
jo1("target") = s2(2)
ja2 = new JArray
For Each s3 As String() In DataTables("menu").GetValues("menu3|href|icon3|target","menu0='" & s & "' and menu1='" & s1 & "' and menu2 = '" & s2(0) & "'")
jo2 = New JObject
jo2("title") = s3(0)
jo2("href") = s3(1)
jo2("icon") = s3(2)
jo2("target") = s3(3)
ja2.add(jo2)
Next
jo1("child") = ja2
ja.add(jo1)
Next
Next
jo("menuInfo")(s)("child") = ja
Next
加好友 
发短信
Post By：2020/2/21 9:05:00 [显示全部帖子]
