主题：为什么仿写都会错误呢

Dim page As WinForm.TopicPage

Dim nms() As String = {"客户名称" ,"报价_供应商" , "项目经理"}

For Each nm As String In nms

    page = Forms("导航栏").Controls("TopicBar1").pages(nm)

    For Each pd As String In DataTables("报价阶段表").GetValues(nm)

        Dim lnk As  WinForm.TopicLink = page.Links.Add(pd ,pd)

        Dim cnt As Integer = DataTables("报价阶段表").Compute("count([_identify])", nm & "='" & pd & "'")

        lnk.Text = lnk.Text & "(" & cnt & ")"

    Next

Next