主题：任务栏中任务名称为啥不变更

这个窗口的AfterLoad代码如下：

Dim wdxxfxr As List(Of String) = DataTables("交流信息").getvalues("Name","Read = 0") '未读信息发信人
 For Each fxr As String  In wdxxfxr
     Dim Values2() As String = fxr.split(".")
Dim wdxx As Integer  = DataTables("交流信息").Compute("Count([Name])", "Read = 0 and Name = '" & fxr & "'") '未读信息
     Dim Page As WinForm.TopicPage = Forms("OpenQQ").Controls("TopicBar1").Pages("页面1") '在页面1上增加任务
         Page.Links.Add( Values2(1)  ,Values2(1) & "(" & wdxx &  "条)")
 Next

任务栏TopicLinkClick事件

e.Link.Text = e.Link.Name