按钮代码写
Dim Page As WinForm.TopicPage
Dim rw1 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = '进行中'")
Dim rw2 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = '已完成'")
Page = e.Form.Controls("TopicBar1").Pages("项目任务")
Page.Links("进行中任务").Text = "进行中任务(" & rw1 & ")"
Page.Links("已完成任务").Text = "已完成任务(" & rw2 & ")"