主题：[求助]任务栏的子表代码如何写？

Select Case e.Link.Name
    Case "表A.表B"
        MainTable = Tables("表A")
        Tables("表A.表C").Visible= False
        Tables("表A.表B").Visible= True
    Case "表A.表C"
        MainTable = Tables("表A")
        Tables("表A.表B").Visible= False
        Tables("表A.表C").Visible= True
    Case Else
        MainTable = Tables(e.Link.Name)
End Select

这样写对吗？请教我，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip