1、2楼的方法没有问题的。
2、设置功能组的标题为主表名称：
Dim tab As RibbonMenu.Group = RibbonTabs("Table").Groups("Table")tab.Text = MainTable.name
加好友 
发短信
Post By：2011/10/17 7:36:00 [显示全部帖子]
