-- 作者:文道古月
-- 发布时间: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
|