主题：[求助]任务栏代码

三个表，在任务栏中的名称是：表A，表B，表C，表A.表B，表A.表B    表B，表C分别是表A的子表
设任务栏中的代码是：
Select Case e.Link.Name
    Case "表A"
        MainTable = Tables("表A")
    Case "表B"
        MainTable = Tables("表B")
    Case "表C"
        MainTable = Tables("表C")
    Case "表A.表B"
        MainTable = Tables("表A")
        Tables("表A.表B").Visible= True
     Case "表A.表C"
        MainTable = Tables("表A")
        Tables("表A.表C").Visible= True
End Select

好象打不开子表表B，表C

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

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