主题：代码

Dim Page As WinForm.TopicPage
Page = e.formControls("TopicBar1").Pages("设计")
For Each nm As String In DataTables("基本设定").GetValues("名称","类别='设计' and 显隐=false ")
    Dim link As WinForm.TopicLink = Page.Links.Add(nm,nm)
    Dim cnt As Integer = DataTables("数据更改统计表").Compute("count([_Identify])","修改人= '" & nm & "'")
    '通过主健来统计数量
    link.text=link.text & "    " & "(" & cnt & ")" & "付"
Next

'''''''''''''''''''''''''''''''''''''''''''''' 修改状态
page = e.form.Controls("TopicBar1").Pages("修改状态")
Dim nms1 As String() ={"修改中","修改完成","未修改"}
For Each nm As String In nms1
    Dim link As WinForm.TopicLink = page.Links.Add(nm,nm)
    Dim cnt As Integer = DataTables("数据更改统计表").Compute("count([_Identify])","修改状态= '" & nm & "'")
    '通过主健来统计数量
    link.text=link.text & "    " & "(" & cnt & ")" & "付"
Next