[求助]如何在下工具栏中增加系统的组件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想在下工具栏中，直接添加筛选组合框

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)

问题：

1、如果某个表第一列是日期列，第二列是文本列。但选择了第一列，筛选时并未出现时段筛选项。

2、重新打开项目以后，菜单按钮没有出现下拉选项，是不是通过代码增加的只是临时的？如果把上面的代码再执行一次，又可以筛选；再重新打开，无下拉选项。

[此贴子已经被作者于2025/4/9 23:13:17编辑过]

主题：[求助]如何在下工具栏中增加系统的组件