经过如下变化，依然返回40016，难道是需要合成的按钮太少了？只有2行，就是2个按钮，指向2个链接
1.表结构改为与官方文档一致
此主题相关图片如下：qq图片20181019142259999111.png
2.代码第1部分（与官方文档相比，增加了2个sql）
Dim mrs As List(of DataRow) = DataTables("Menu").SQLSelect("[parent] is null","_SortKey") '删选出一级按钮对应的行
Dim mo As New JObject '一级菜单对象
Dim ma As New Jarray '一级菜单按钮数组
mo("button") = ma '一级菜单属性就一个button属性,这是一个数组属性
For Each mr As DataRow In mrs
Dim so As New JObject
so("name") = mr("name").Tostring
Dim srs As List(of DataRow) = DataTables("Menu").SQLSelect("[parent] = '" & mr("name") & "'", "_SortKey") '筛选出二级按钮
Dim nms As String() = {"type","name","url","key","media_id"} '注意列名和菜单属性名一直,方便编码,注意大是区分大小写的
If srs.Count = 0 Then '如果此一级菜单按钮对应的二级按钮数为0,那么次一级菜单按钮就是一个普通的命令按钮
For Each nm As String In nms '设置一级菜单按钮的户型
If mr.IsNull(nm) = False Then
so(nm) = mr(nm).ToString()
End If
Next
Else '如果此一级菜单按钮有对应的二级菜单按钮,那么此一级菜单按钮是一个菜单按钮
Dim sa As New JArray '定义一个数组,包括此一级按钮下的所有二级按钮
For Each sr As DataRow In srs '逐个生成二级按钮
Dim jo As New JObject '定义二级按钮对象
For Each nm As String In nms '设置二级按钮属性
If sr.IsNull(nm) = False Then
jo(nm) = sr(nm).ToString()
End If
Next
sa.Add(jo)
Next
so("sub_button") = sa '一级菜单按钮的sub_button属性是一个数组,包括所有二菜单按钮
End If
ma.Add(so)
Next
msgbox(mo.Tostring())
3.代码第2部分
Dim URL As String = " https://api.weixin.qq.com/cgi-bin/menu/create?access_token={0}"
Dim AccessToken As String '= Functions.Execute("GetAccessToken")
Dim drr As DataRow = DataTables("城市列表").sqlFind("所在省 = '江苏' and 所在区县 = '小城'")
If drr IsNot Nothing Then
AccessToken = drr("lin_at")
If AccessToken <> "" Then
AccessToken = DecryptText(drr("lin_at"),"江苏","安徽")
Dim hc As New HttpClient(CExp(URL,AccessToken))
hc.Content = mo.Tostring()
Dim ro As JObject = JObject.Parse(hc.GetData)
If ro("errcode") = "0" Then
MessageBox.Show("菜单设置成功!")
Else
MessageBox.Show(ro("errcode")) ’这里返回40016
End If
Else
MessageBox.Show("没有获得at值!")
End If
Else
MessageBox.Show("没有找到at所在行!")
End If
4.这是错误提示
此主题相关图片如下：微信图片_2018101915180555555555.jpg
[此贴子已经被作者于2018/10/19 15:34:48编辑过]
加好友 
发短信
Post By：2018/10/19 13:03:00 [只看该作者]
