以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]一个在任务栏中打开子表的代码?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22613)

--  作者:jk362223
--  发布时间:2012/8/18 21:57:00
--  [求助]一个在任务栏中打开子表的代码?

Select Case e.Link.Name
       Case "表A"
          MainTable = Tables("表A")
       Case "表B"
          MainTable = Tables("表B")
       Case "表A.表B"
          MainTable = Tables("表A.表B")
End Select
\'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)

 

 

求一个在任务栏中打开表A的子表“表B”的代码。
--  作者:jk362223
--  发布时间:2012/8/18 22:00:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:woiz
--  发布时间:2012/8/18 23:53:00
--  

你想实现什么功能?如果是[表A.表B], 这是一个关联的表窗口, 会在表A中显示的, 如果单纯要打开的话

 

不如建一个窗口,在窗口中 加一个 table 控件, 将table 绑定到 [表A.表B]

 

然后

 Case "表A.表B"
          forms("窗口名").open

 

就可以了


--  作者:jk362223
--  发布时间:2012/8/20 9:26:00
--  

我想在任务栏中显示,上面是主表,下面是子表。因为我这的一个主表,带的子表太多,许多子表在栏目中已不能很好的显示了,所以我想搞个任务栏,点后打开的是子表,上面是主表,不是单纯的打开子表,我不知道怎么样写代码,请教我!

 


--  作者:jk362223
--  发布时间:2012/8/20 9:35:00
--  

我想在任务栏中显示,上面是主表,下面是子表。因为我这的一个主表,带的子表太多,许多子表在栏目中已不能很好的显示了,所以我想搞个任务栏,点后打开的是子表,上面是主表,不是单纯的打开子表,是打开主表下的子表,我不知道怎么样写代码,请教我!

 

Select Case e.Link.Name
       Case "表A"
          MainTable = Tables("表A")
       Case "表B"
          MainTable = Tables("表B")
       Case "表A.表B"
          MainTable = Tables("表A.表B")
End Select
\'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)

 

 

 Case "表A.表B"
          MainTable = Tables("表A.表B")
这样写个代码,能不能在任务栏中打开主表A中的子表,显示:上面是表A,下面是表B?

 

 

 

 

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:狐狸爸爸
--  发布时间:2012/8/20 9:54:00
--  

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


--  作者:jk362223
--  发布时间:2012/8/20 10:56:00
--  

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

 

这样写后,好象不行啊?帮我看看!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip