主题：表打开问题

这个时候，没有必要在上面显示一个表头，因为通常左边有个导航，显示当前表的名称。

一定要的话：

Dim nm As String = "表B"
Tables(nm).Visible = True
For Each t As Table In Tables
   t.Visible = (t.Name = nm)
Next
MainTable = Tables(nm)