主题：自动生成功能区

在systemIdel事件写代码：

if RibbonTabs.SelectedTab.Name = "abc" then

   If Forms("窗口1").Opened = False then

        Forms("窗口1").Open
   End if

   If MainTable.Name <> "表A" then

       MainTable = Tables("表A")

   End If

End If

 

http://www.foxtable.com/help/topics/2483.htm

 

还有，你的目录树代码有问题，哪有每次点击都新生成一个功能区的？ 应该是提前一次性生成所有功能区，然后根据需要切换。