主题：[求助]代码报错

下面一段代码，希望在导航窗口中动态生成一个提示，但对红色代码段提示：“对于用显示界限声明的数组不允许进行显示初始化！”，估计后面的：tl(i)的表达也有错，请教怎么修改？

    Dim fyfqqs() As String '费用分期期数_数组

    fyfqqs = fyfq.split("|")

    For i As Integer = 0 To fyfqqs.length - 1

        If fyfq.Contains(" & fyfqqs(i) &") Then

            Dim cnt(i) As Integer =  DataTables("合同or费用台账").Compute("Count(费用分期)","费用分期 = '& fyfqqs(i) &'")

            Dim ye As String = DataTables("营销费分期审定表").Compute("Sum("本期营销费总额")","营销费分期 = '& fyfqqs(i) &'") - DataTables("合同or费用台账").Compute("Sum(合同or费用总额)","费用分期 = '& fyfqqs(i) &'")          

            Page.Links.Add("营销费分期记录","& fyfqqs &" & "营销费记录共(" & cnt(i) & ")条" & "目前截止结余 ' & ye & '")

            Dim tl(i) As WinForm.TopicLink

            tl(i) = Forms("入口窗口").Controls("TopicBar1").Pages("提示信息").Links("营销费分期记录")

            tl(i).ImageFile = "Paste.ico"

        End If

    Next