主题：任务栏问题

看看：

 

http://www.foxtable.com/help2/topics/2906.htm

 

 

其中的一部分：

导航窗口并非只能进行导航，可以在导航的同时，显示一些提示和统计信息，例如：

 

要如上图所示，在TopicBar显示统计信息，通常在窗口的AfterLoad事件中加上类似的代码：

 

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("产品").Compute("Count(主键列)","日期 = #"  & Date.Today & "#")
Dim cnt2 As Integer = DataTables("产品").Compute("Count(主键列)","审核 = False Or 审核 IsNull")
Page = e.Form.Controls("TopicBar1").Pages.Add("产品资料","产品资料")
Page.Links.Add("今日新增产品","今日新增产品(" & cnt1 & ")" )
Page.Links.Add("审核不通过产品","审核不通过产品(" & cnt2 & ")" )

 

由于TopicLink的Text(标题)属性包括统计信息，其内容是动态变化的，而Name(名称)属性则始终保持不变，所以 给Topicbar的TopicLinkClick事件设置代码的时候，需要用TopicLink的Name属性来判断单击的是那个命令：

 

Select Case e.Link.Name
    Case "今日新增产品"
        Tables("产品").Filter = "日期 = #"  & Date.Today & "#"
    Case "审核不通过产品"
        Tables("产品").Filter = "审核 = False Or 审核 IsNull"
End Select