主题：josn 结构[ ]

1、直接循环不就行了？比如

 

For i As Integer = 1 To 2 '可以有多段图文

 

2、你也可以写多段下面的代码

 

    Dim ao As New JObject
    ao("type") = "monday"
    ao("begin_hour") = 10
    ao("end_hour") = 22
    ao("begin_minute") = 01
    ao("end_minute") = 30
    ar.add(ao)
    ao = New JObject
    ao("type") = "monday"
    ar.add(ao)

怎么不对，合成的json有什么差异？报什么错？

试试照抄，如果还不行，询问一下微信客服。

 

Dim jo As New JObject
Dim ja As New JArray
jo("card") = New JObject()
jo("card")("card_type") = "GENERAL_COUPON"
jo("card")("general_coupon") = New JObject()
jo("card")("general_coupon")("base_info") = New JObject()
jo("card")("general_coupon")("base_info")("brand_name") = "微信餐厅"
jo("card")("general_coupon")("base_info")("title") = ""
jo("card")("general_coupon")("advanced_info") = New JObject()
Dim ar As New JArray
Dim ao As New JObject
ao("type") = "monday"
ao("begin_hour") = 10
ao("end_hour") = 22
ao("begin_minute") = 01
ao("end_minute") = 30
ar.add(ao)
ao = New JObject
ao("type") = "HOLIDAY"
ar.add(ao)
jo("card")("general_coupon")("advanced_info")("time_limit") = ar
output.show(jo.ToString())

 

1、你的json是参考哪里的？文档没有你那样的json

 

2、要求的那些必填字段，你都没有包含进来

 

https://mp.weixin.qq.com/debug/

 

先试试把空格去掉，或者加上双引号。