以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何在下工具栏中增加系统的组件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196220)
--  作者：chnfo
--  发布时间：2025/4/9 22:14:00
--  [求助]如何在下工具栏中增加系统的组件
想在下工具栏中，直接添加筛选组合框

BottomToolBar.Items.Add(RibbonTabs("Common").Groups("SortAndFilter").Items("Filter"))

似乎没什么反应，是用法有问题？还是说先手工在下工具栏中定义一个组合框，然后再引用？

我先在下工具栏中增加了一个菜单按钮：菜单按钮1
然后在命令窗口执行：
Dim x As RibbonMenu.MenuButton = RibbonTabs("Common").Groups("SortAndFilter").Items("Filter")
For Each y As Object In x.Items
    BottomToolBar.Items("菜单按钮1").Items.add(y)
Next 

问题：
1、如果某个表第一列是日期列，第二列是文本列。但选择了第一列，筛选时并未出现时段筛选项。
2、重新打开项目以后，菜单按钮没有出现下拉选项，是不是通过代码增加的只是临时的？如果把上面的代码再执行一次，又可以筛选；再重新打开，无下拉选项。
[此贴子已经被作者于2025/4/9 23:13:17编辑过]
--  作者：有点蓝
--  发布时间：2025/4/10 8:46:00
--  
至少又有一个菜单项，下工具栏才能显示并可用。到菜单设计里添加随便给下工具栏添加一个菜单项，然后把可见设置为false就行，这时就可以执行BottomToolBar.Items.Add(RibbonTabs("Common").Groups("SortAndFilter").Items("Filter"))了

1、我测试没有问题

2、通过代码增加的都是临时的