- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 救助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147840)
-- 发布时间：2020/3/25 16:07:00
-- 救助
前面是按帮助文件中做的，之后
此主题相关图片如下：89.png
在主菜单的load事件加入以下代码：
With RibbonTabs("调度管理").Groups("查询区").Items("承运单位")
.Items.Clear
For Each c As String In xzqy.SQLGetComboListString("省份")
Dim b As New RibbonMenu.Button(c)
b.Text = c
.Items.Add(b)
Next
End With
之后菜单中的列表项目就变成如图的情形了
-- 发布时间：2020/3/25 16:12:00
--
SQLGetComboListString改成SQLGetValues
-- 发布时间：2020/3/25 16:16:00
--
多谢老师，下班后我试一下