以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  任务栏问题  (http://www.foxtable.com/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
--  
好的 我再试试