主题：菜单问题

请问点击按钮显示出一个表的点击事件代码是怎么的啊？ 另:怎样实现鼠标移上按钮显示下拉菜单？

如果是主表：
MainTable = Tables("表名")

如果是关联表：
Tables("关联表名称").Visible= True

至于菜单，只能单击或右击显示下拉菜单。

thanks...那个下拉菜单的问题能帮我解决下吗

看2楼

假定希望在某个控件上右击事，能够显示某一快捷菜单，可以将该控件的MouseDown事件设为：

If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键
    ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单
End If

    我是想在鼠标移上的时候自动显示下拉列表.....不是想用右键快捷...

那就在MouserEnter事件中加入：

ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y)

报错Sender 不是RibbonTabEventArgs的成员，是什么原因啊

你说的控件不是窗口控件吗？
例如窗口的某个按钮，将这个代码设置在按钮的MouseEnter事件即可。

如果你说的是菜单，没有这个功能，按标准的菜单做吧。

没这个功能啊   ....

谢谢