专家坐堂-任务栏问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  任务栏问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147667)

--  作者：mtx
--  发布时间：2020/3/21 15:35:00
--  任务栏问题
您好，我想点击任务栏中的某一个按钮可以跳转到另一个窗口吗？
此主题相关图片如下：微信图片_20200321153202.png

--  作者：有点蓝
--  发布时间：2020/3/21 15:46:00
--
写代码打开窗口即可，参考：http://www.foxtable.com/webhelp/topics/2906.htm

--  作者：mtx
--  发布时间：2020/3/21 16:39:00
--

您好我写的代码是下面这样的，但是我点击任务栏里的子任务还是没有反应中间也弹出了一下窗口，被我叉掉之后再点就没有任何反应了，请问这是为什么呢

Dim tbp As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each pg As WinForm.TopicPage In tbp.Pages
    For Each lnk As WinForm.TopicLink In pg.Links
        lnk.Text = lnk.Text.Trim("←")
    Next
Next
e.Link.Text = e.Link.Text & "←"
Select Case e.Page.Name
    Case "危化品包装"
        Select Case e.Link.Name
            Case "包装主体"
                Forms("包装主体").Open()

                MainTable = Tables("危化品包装")
            Case "包装材质"
                Forms("包装材质").Open()

                MainTable = Tables("危化品包装")
            Case "内包装"
                Forms("内包装").Open()

                MainTable = Tables("危化品包装")
        End Select
End Select

--  作者：有点蓝
--  发布时间：2020/3/21 16:42:00
--

叉掉指什么，隐藏了表？还是卸载了表？

试试
Case "包装主体"
                Tables("危化品包装").visible = true
                Forms("包装主体").Open()
                MainTable = Tables("危化品包装")
[此贴子已经被作者于2020/3/21 16:42:12编辑过]

--  作者：mtx
--  发布时间：2020/3/21 16:53:00
--

就是我点击包装材质的时候突然出来一个窗口，我把这个窗口关掉想打开另外一个窗口的时候就打不开了，刚刚您给的代码也出现了这个问题
此主题相关图片如下：2.png

--  作者：有点蓝
--  发布时间：2020/3/21 17:08:00
--
如果是独立。模式窗口，直接打开即可：Forms("包装主体").Open()

不需要MainTable = Tables("危化品包装")

--  作者：mtx
--  发布时间：2020/3/21 17:10:00
--

好的我再试试