- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在菜单的组合框中生成项目下拉列表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100062)
-- 发布时间：2017/5/4 2:57:00
-- 如何在菜单的组合框中生成项目下拉列表
请教：如何在菜单中的组合框中生成表A中的项目下拉列表？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.table |
-- 发布时间：2017/5/4 8:49:00
--
参考：http://www.foxtable.com/webhelp/scr/1134.htm
AfterOpenProject事件
With RibbonTabs("功能区1").Groups("功能组1").Items("组合框1")
.Items.Clear \'清除原有项目
For Each s As String In DataTables("表A").GetValues("项目名称") \'遍历当前表中的列
\'定义一个标准按钮,按钮的名称等于列名称.
Dim b As New RibbonMenu.Button(s)
b.Text = s \'按钮的标题也等于列名称
.Items.Add(b)
Next
End With
-- 发布时间：2017/5/4 17:15:00
--
老师：我的意思不是要列出列名，是要列出项目名称列中的项目，谢谢！
-- 发布时间：2017/5/4 18:26:00
--
以下是引用cq66667372在2017/5/4 17:15:00的发言：
老师：我的意思不是要列出列名，是要列出项目名称列中的项目，谢谢！
老师：我的意思不是要列出列名，是要列出项目名称列中的项目，谢谢！
2楼的代码没问题，直接拷贝即可。