- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口的中表如何实现这样的筛选功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78836)
-- 发布时间：2015/12/18 9:37:00
-- 窗口的中表如何实现这样的筛选功能
？
此主题相关图片如下：未命名.bmp
-- 发布时间：2015/12/18 9:38:00
--
路径错误啊
-- 发布时间：2015/12/18 9:43:00
--
大红袍回贴太及时了，精神可嘉。不好意思，图片上传错误。现在这张图是对的。
-- 发布时间：2015/12/18 9:48:00
--
本来就有的。
新建一个项目，导入系统菜单模板，去看快捷菜单->Cell，你自己也做一个这样的菜单即可
-- 发布时间：2015/12/18 10:06:00
--
本来就有的。
新建一个项目，导入系统菜单模板，去看快捷菜单->Cell，你自己也做一个这样的菜单即可
这样可以筛选的。但来了一个新问题，原来的菜单没有了。
-- 发布时间：2015/12/18 10:07:00
--
叫你拷贝人家测cell放到自己的菜单里去。
-- 发布时间：2015/12/18 10:12:00
--
\'以下代码用于将Cell快捷菜单中部分命令复制到Range快捷菜单中
\'如果自行设计了Range菜单,或者调整了有关菜单命令的名称,请自行修改或删除以下代码
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("Cell")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("Range")
If mnu2.Items.Count = 0 \'如果Range快捷菜单中没有命令,说明用户没有自行设计Range快捷菜单
mnu2.Items.Add(ContextMenus("Cell").Items("Cut"),False)
mnu2.Items.Add(ContextMenus("Cell").Items("Copy"))
mnu2.Items.Add(ContextMenus("Cell").Items("Paste"))
mnu2.Items.Add(ContextMenus("Cell").Items("RowMenu"))
mnu2.Items.Add(ContextMenus("Cell").Items("ColMenu"))
mnu2.Items.Add(ContextMenus("Cell").Items("Ascending"))
mnu2.Items.Add(ContextMenus("Cell").Items("Descending"))
mnu2.Items.Add(ContextMenus("Cell").Items("UnSort"))
End If
这段代码放在什么事件中？
-- 发布时间：2015/12/18 10:14:00
--
汗 这是因为我们在菜单的Load事件中加入了下面一段代码：
-- 发布时间：2015/12/18 10:20:00
--
不是明知故问，真是不知道怎么做。请一步步请清楚，先谢了。
-- 发布时间：2015/12/18 10:21:00
--
1、你可以自己新建菜单啊；
2、你可以直接在事件里写代码生成；
3、好好看系统菜单是怎么做的啊。