主题：TopicBar动态增加

在窗口上有一个复选框和textbox，当textbox中写入文字，并且复选框选中时，TopicPage自动增加任务。

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("产品").Compute("Count(主键列)","日期  >= '" & Date.Today & "' And 日期 <= '" & dt1 & "'")
Dim cnt2 As Integer = DataTables("产品").Compute("Count(主键列)","审核 = False Or 审核 IsNull")
Page = e.Form.Controls("TopicBar1").Pages.Add("" & txt1.Value & " 天内提醒任务","" & txt1.Value & " 天内提醒任务")
Page.Links.Add("今日新增产品","今日新增产品(" & cnt1 & ")" )
Page.Links.Add("审核不通过产品","审核不通过产品(" & cnt2 & ")" )

  End If

这个是可以实现几天的任务动态增加的，但问题是，当1天内提醒任务已经有时，不能再次增加1天内的提醒任务，就是任务的name不能有相同的，这个该如何判断。

老师，你看我这个界面，当我在文本框中输入1，然后点击复选框时，会自动增加一个任务，但是当第二次点击的时候还是能添加，我希望任务名称相同的只能增加一次。