以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TopicBar的动态判定和执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79584)

--  作者:文道古月
--  发布时间:2016/1/5 14:21:00
--  TopicBar的动态判定和执行

TopicLinkClick事件中,想执行判定,根据打开情况和点击的任务做不同的反应,如筛选。。

 

帮助中没找到介绍,该怎么用呢?

 

Dim tbp As WinForm.TopicBar = e.Form.Controls("账本TopicBar1")
If e.Page.Collapsed = True Then \'判定页面打开
    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 & "←" \'设置活动状态下的任务标题
    Tables("主界面_主查询Table1").Filter = "[移动单元] = \'" & e.Page.Name & "\'and [物料类别] = \'" & e.Link.Name & "\'"
End If


--  作者:大红袍
--  发布时间:2016/1/5 14:43:00
--  
没看懂你什么意思,你代码没错啊。
--  作者:文道古月
--  发布时间:2016/1/5 14:51:00
--  

if 返回 false

 

Collapsed没有判断属性  

 

改了代码,不做判断了,希望不会报错.................

 


图片点击可在新窗口打开查看此主题相关图片如下:截图20160105144836.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/1/5 14:51:13编辑过]

--  作者:大红袍
--  发布时间:2016/1/5 14:54:00
--  
你能够点击Link,此Page肯定是要在打开状态的。