我在五楼的代码组合错了，仔细消化一下帮助结果应该这样，您的代码也没必要那么复杂，写代码要学会精简，试试这个代码，这也许是一个最简单的方法：
If RibbonTabs.Contains(MainTable.name & "功能区") = True
RibbonTabs("表A功能区").Visible = (MainTable.name = "表A")
RibbonTabs("表B功能区").Visible = (MainTable.name = "表B")
RibbonTabs("表C功能区").Visible = (MainTable.name = "表C")
RibbonTabs("公共功能区").Visible = True
End If
不过，贺老师还需要将这一节帮助细化，否则，很难懂，需要给出实例：
项目集合
功能区、功能组、工具栏、菜单按钮、组合按钮、组合框、程序菜单、配置栏等都是容器，这些组件可容纳其他菜单组件。
大多数容器类的菜单组件都有一个名为Items属性，表示其包含的菜单组件项目集合。
当然也有例外，例如程序菜单（ApplicationMenu），它有三个项目集合，所以集合的名称不是Items，请参考前面的介绍。
利用项目集合，不仅可以获得指定名称的菜单组件，我们还可以向其中增加、插入和删除菜单组件。
项目集合的方法：
| 方法 |
说明 |
| Contains |
判断是否包括指定名称的组件。
语法：
Contains(Name)
Name: 组件名称 |
| Clear |
清除所有组件 |
| Add |
增加一个组件，语法：
Add(Item)
Item: 要增加的项目 |
| Insert |
在指定位置插入一个组件。
语法：
Insert(Index, Item)
Index: 整数型，插入位置
Item: 要插入的组件。 |
| Remove |
删除指定的组件，或者删除指定名称的组件。
语法：
Remove(Name)
Remove(Item)
Name: 组件名称
Item:组件 |
利用项目集合，可以动态生成菜单，后面的实战演练会介绍。
[此贴子已经被作者于2012-2-7 0:00:55编辑过]
加好友 
发短信
Post By：2012/2/5 10:15:00 [显示全部帖子]
