以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]任务栏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56123)
--  作者：蝙蝠侠K02
--  发布时间：2014/8/29 17:38:00
--  [求助]任务栏

建立了TopicBar1（任务栏），在TopicLinkClick写了如下代码：

Select Case e.Page.name
    Case  "我的任务"
        Select Case e.link.name
            Case  "进行中的任务"
                \'代码
            Case  "未开始的任务"
                \'代码
        End Select
        Forms("任务主界面").show()
        MainTable = Tables("任务表")
End Selec

   

   单击"进行中的任务"和"未开始的任务"打开的是同一窗口。在打开
Forms("任务主界面")通过不同的过滤条件形成查询表，查询表的数据源相同。

 

    问题：由于任务切换时打开的是同一主窗口，必须手工关闭上一次打开的窗口，再点击

任务栏的相关任务才能打开。请问如何关闭上一次打开的窗口，代码应写在哪里？       

 

 

           


 

 

 
--  作者：Bin
--  发布时间：2014/8/29 17:40:00
--  
可以执行 
For Each f As WinForm.Form In Forms
    f.Close
Next

先关闭其他窗口
--  作者：Bin
--  发布时间：2014/8/29 17:41:00
--  
要排除某些窗口的话

For Each f As WinForm.Form In Forms
    select case f.name
        case "窗口1","窗口2"
        case else
         f.Close
    end select
Next
--  作者：蝙蝠侠K02
--  发布时间：2014/8/29 17:48:00
--  

我在任务栏中加了关闭代码，如下：

Select Case e.Page.name
    Case  "我的任务"

       If Forms("任务主界面").Opened Then
          Forms("任务主界面").Close

     End If

        Select Case e.link.name
            Case  "进行中的任务"
                \'代码
            Case  "未开始的任务"
                \'代码
        End Select
        Forms("任务主界面").show()
        MainTable = Tables("任务表")
End Selec

 

      
--  作者：蝙蝠侠K02
--  发布时间：2014/8/29 18:03:00
--  
以下是引用蝙蝠侠K02在2014-8-29 17:48:00的发言：

我在任务栏中加了关闭代码，如下：

Select Case e.Page.name
    Case  "我的任务"

       If Forms("任务主界面").Opened Then
          Forms("任务主界面").Close

     End If

        Select Case e.link.name
            Case  "进行中的任务"
                \'代码
            Case  "未开始的任务"
                \'代码
        End Select
        Forms("任务主界面").show()
        MainTable = Tables("任务表")
End Selec

 

      

       上述代码存在下列问题：切换任务时，第一次点击任务，关闭窗口，第二次在点击

该任务才能打开新的窗口，我想做的是：点击任务一次，关闭上一次打开的窗口，再打开新的窗口。

 
--  作者：蝙蝠侠K02
--  发布时间：2014/8/29 18:57:00
--  
   可以了,谢谢!