求助：微信服务号反馈的JOSN值的条件判断，当含某个值的时候，视为成功，运行代码1，反之运行代码2.
部分代码如下
…………
…………
output.Show(json)
Dim dr As DataRow
For Each obj As object In data.list
dr = DataTables("图文群发每日数据").AddNew
dr("文章标题") = obj.title
dr("图文编号") = obj.msgid
Next
…………
…………
上述代码操作虽然可以实现想要获取的数据，但是如果接口不对，密钥不对，接口操作操作限制次数，均会报如下错误：
格式如下：
{"errcode":45009,"errmsg":"reach max api daily quota limit hint: [.bOt70356e562]"}
然后会有一个错误弹出框出现，提示错误，因为没有得到json文件，所以就不会有list公共内容部分，老弹出来严重影响操作，
有没有办法增加一个判断代码呢？
如果返回的josn内容有errcode部分，就直接取消写表操作，弹出“45009，接口操作次数”的提示！
如果返回的JOSN内容有list部分，就进行写表操作。
正常情况下，获取图文群发每日数据接口的返回JSON数据包如下：
{
"list": [
{
"ref_date": "2014-12-08",
"msgid": "10000050_1",
"title": "12月27日 DiLi日报",
"int_page_read_user": 23676,
"int_page_read_count": 25615,
"ori_page_read_user": 29,
"ori_page_read_count": 34,
"share_user": 122,
"share_count": 994,
"add_to_fav_user": 1,
"add_to_fav_count": 3
}
//后续会列出该日期内所有被阅读过的文章（仅包括群发的文章）在当天的阅读次数等数据
]
}
加好友 
发短信
Post By：2016/11/5 0:53:00 [只看该作者]
