主题：创建微信礼品卡货架多层嵌套json

Dim jo As new JObject
Dim ar As New JArray
Dim i As Integer = 0
For Each r1 As DataRow In DataTables("微信礼品卡货架").Select("主题分类名称 = '分类一'")
    Dim ao As New JObject
    ao("theme_pic_url") = r1("主题封面链接").Tostring
    ao("title") = r1("主题名称").Tostring
    ao("title_color") = r1("主题名称颜色").Tostring
    ar.add(ao)
    jo("page")("theme_list") = ar
   
    Dim ar2 As New JArray
    For Each r2 As DataRow In DataTables("微信礼品卡货架").Select("主题名称 = '" & r1("主题名称") & "'")
        Dim ao2 As New JObject
        ao2("card_id") = r2("卡券ID").tostring
        ao2("title") = r2("商品名称").tostring
        ao2("pic_url") = r2("商品缩略图链接").tostring
        ao2("desc") = r2("商品简介").tostring
        ar2.add(ao2)
    Next
    ao("item_list") = ar2
    ao("category_index")= i
    i += 1
Next

'hc.Content = jo.ToString()
'jo = JObject.Parse(hc.GetData)
'hc.GetData
output.show(jo.Tostring)

做一个foxtable项目发上来测试，导入你【微信礼品卡货架】表数据。

Dim jo As New JObject
jo("page") = New JObject
jo("page")("page_title") = "礼品卡标题"
jo("page")("support_multi") = True
jo("page")("support_buy_for_self") = True
jo("page")("banner_pic_url") = "http://mmbiz.qpic.cn/mmbiz_jpg/ahyj0ppmibfrTLNaiaZmqK71SDT5pDPzeCfxdWJL5MibJiahDOmIdytzZicotiaSjm0n0Y9LyuhnIos62KR3GO7rKzpw/0?wx_fmt=jpeg"
jo("page")("support_multi") = True

output.show(jo.Tostring)

请理清自己的逻辑，然后写条件

http://www.foxtable.com/webhelp/scr/2747.htm

For Each s As String In DataTables("微信礼品卡货架").GetValues("主题分类名称")
    Dim r1 As DataRow = DataTables("微信礼品卡货架").find("主题分类名称 = '" & s & "'")
    Dim ao As New JObject
    ao("theme_pic_url") = r1("主题封面链接").Tostring
    ao("title") = r1("主题名称").Tostring
    ao("title_color") = r1("主题名称颜色").Tostring
    ar.add(ao)
    jo("page")("theme_list") = ar
   
    Dim ar2 As New JArray
    For Each r2 As DataRow In DataTables("微信礼品卡货架").Select("主题名称 = '" & r1("主题名称") & "'")

Dim jo As New JObject
jo("page") = New JObject
jo("page")("page_title") = "礼品卡标题"
jo("page")("support_multi") = True
jo("page")("support_buy_for_self") = True
jo("page")("banner_pic_url") = "http://mmbiz.qpic.cn/mmbiz_jpg/ahyj0ppmibfrTLNaiaZmqK71SDT5pDPzeCfxdWJL5MibJiahDOmIdytzZicotiaSjm0n0Y9LyuhnIos62KR3GO7rKzpw/0?wx_fmt=jpeg"
jo("page")("support_multi") = True

Dim ar As New JArray
Dim i As Integer = 0
Dim Arys As List(Of String())
Arys = DataTables("微信礼品卡货架").GetValues("主题分类名称|主题名称")
jo("page")("theme_list") = ar
For Each s As String() In Arys
    Dim r1 As DataRow = DataTables("微信礼品卡货架").find("主题分类名称 = '" & s(0) & "' and 主题名称 = '" & s(1) & "'  ")
    output.show("r1" & r1("主题分类名称") & "|" & r1("主题名称"))
    Dim ao As New JObject
    ao("theme_pic_url") = r1("主题封面链接").Tostring
    ao("title") = r1("主题名称").Tostring
    ao("title_color") = r1("主题名称颜色").Tostring
    ar.add(ao)
    Dim ar2 As New JArray
    For Each r2 As DataRow In DataTables("微信礼品卡货架").Select("主题名称 = '" & r1("主题名称") & "'")
        output.show("r2" & r2("主题分类名称") & "|" & r2("主题名称") & "|" & r2("商品名称"))
        Dim ao2 As New JObject
        ao2("card_id") = r2("卡券ID").tostring
        ao2("title") = r2("商品名称").tostring
        ao2("pic_url") = r2("商品缩略图链接").tostring
        ao2("desc") = r2("商品简介").tostring
        ar2.add(ao2)
    Next
    ao("item_list") = ar2
    ao("category_index")= i
    output.show(i)
    i += 1
Next
output.show(jo.Tostring)