主题：关于topicbar的问题！

控制好条件

Dim Page As WinForm.TopicPage
Dim dt As Date = Date.Today.AddDays(5)
Dim cnt As Integer = DataTables("订单").Compute("Count([_Identify])","已完成 = False")
Dim cnt1 As Integer = DataTables("订单").Compute("Count([_Identify])","订单交期 >= #" & Date.Today & "# and 订单交期 <= #" & dt & "# and 已完成 = false")
Page = e.Form.Controls("TopicBar1").Pages.Add("订单管理","订单管理")
Page.Links.Add("未完成订单","未完成订单(" & cnt & ")" )
Page.Links.Add("即将到期","即将到期(" & cnt1 & ")" )