主题：[求助]导航窗口TopicBar控件的如何即时更新？

 代码

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