以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]任务栏代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22649)
--  作者：jk362223
--  发布时间：2012/8/20 12:39:00
--  [求助]任务栏代码

三个表，在任务栏中的名称是：表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
--  作者：czy
--  发布时间：2012/8/20 12:54:00
--  

现在似乎没有好的办法解决

 

这样试试

 

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