try:Public Class class1
    Public Sub texttohy(ByRef panel1 As Panel)
      i=1
      dim test as HyperLink
      do while i<4
         test=CType(panel1.FindControl("HyperLink" & i.ToString(), HyperLink)
         test.Text = i.ToString()
        i=i+1
      loop
    End Sub
end class

解决方案 »

  1.   

    Public Class class1
        Public Sub texttohy(ByRef panel1 As Panel)
          i=1
          dim test as HyperLink
          do while i<4
             test=CType(panel1.FindControl("HyperLink" & i.ToString()), HyperLink)
             test.Text = i.ToString()
            i=i+1
          loop
        End Sub
    end class