主题：代码

在窗口的AfterLoad 事件中写代码   问题出在修改状态下面的代码  执行后出现图片的内容，不知道错在哪里

Dim Page As WinForm.TopicPage

Page = Forms("设变-左侧导航栏").Controls("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 = Forms("左侧导航栏").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