主题：TopicBar动态增加

Dim txt1 As WinForm.TextBox = e.Form.Controls("textbox1")
Dim dt1 As Date = Date.Today.Adddays(txt1.Value)

Dim Page As WinForm.TopicPage

If e.Sender.Checked = True Then
    Dim cnt1 As Integer = DataTables("产品").GetValues("name","日期  >= '" & Date.Today & "' And 日期 <= '" & dt1 & "'").count
    Dim cnt2 As Integer = DataTables("产品").GetValues("name","审核 = False Or 审核 IsNull").count
    Page = e.Form.Controls("TopicBar1").Pages.Add("" & txt1.Value & " 天内提醒任务","" & txt1.Value & " 天内提醒任务")
    Page.Links.Add("今日新增产品","今日新增产品(" & cnt1 & ")" )
    Page.Links.Add("审核不通过产品","审核不通过产品(" & cnt2 & ")" ) 
End If

 不明白你说的意思，你是要这个？

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102584&skin=0

Dim txt1 As WinForm.TextBox = e.Form.Controls("textbox1")
Dim dt1 As Date = Date.Today.Adddays(txt1.Value)

Dim Page As WinForm.TopicPage

If e.Sender.Checked = True Then
    Dim cnt1 As Integer = DataTables("产品").GetValues("name","日期  >= '" & Date.Today & "' And 日期 <= '" & dt1 & "'").count
    Dim cnt2 As Integer = DataTables("产品").GetValues("name","审核 = False Or 审核 IsNull").count
    Dim tpb As WinForm.TopicBar  = e.Form.Controls("TopicBar1")
    Dim name As String = txt1.Value & " 天内提醒任务"
    For Each p As WinForm.TopicPage In tpb.Pages
        If p.Name = name Then
            page = p
        End If
    Next
    If page IsNot Nothing Then
        page = tpb.Pages(name)
        Page.Links("今日新增产品").text = "今日新增产品(" & cnt1 & ")"
        Page.Links("审核不通过产品").text = "审核不通过产品(" & cnt2 & ")"
    Else
        Page = tpb.Pages.Add(name, name)
        Page.Links.Add("今日新增产品","今日新增产品(" & cnt1 & ")" )
        Page.Links.Add("审核不通过产品","审核不通过产品(" & cnt2 & ")" )
    End If
End If