我写的代码主要部分如下:
Sub AddTextBoxValue(ByVal drpList As DropDownList, ByVal tab() As String, ByVal sText As String)
        Dim txt As TextBox
        Dim nub As Integer = CInt(drpList.SelectedItem.Value)
        Dim i As Integer
        For i = 1 To nub
            txt = Me.FindControl(sText & i)
            txt.Text = tab(i - 1)
         Next
    End Sub Function ReadRotorXmlFile(ByVal sFileName As String)
        Dim myTR As New XmlTextReader(sFileName)
         Dim i As Integer
          Dim RotorID As Integer = Request.QueryString("RotorID")         While myTR.Read()
            If myTR.NodeType = Xml.XmlNodeType.Element Then
             Select Case myTR.Name 
        Dim RotorID As Integer = Request.QueryString("RotorID")
      Case "左轴承参数"
                        myTR.Read()
                        For i = 1 To DropDownList6.SelectedValue
                            myTR.Read()
                            If myTR.Name = "刚度阻尼" Then
                                If RotorID = 1 Then
                                    tab11(i) = myTR.GetAttribute("速度") & "," & myTR.ReadString()
                                ElseIf RotorID = 2 Then
                                    tab21(i) = myTR.GetAttribute("速度") & "," & myTR.ReadString()
                                Else
                                    tab31(i) = myTR.GetAttribute("速度") & "," & myTR.ReadString()
                                End If
                                myTR.Read()
                            End If
                        Next
                        Select Case RotorID
                            Case 1
                                AddTextBoxValue(DropDownList6, tab11, "sTxtLeft")
                            Case 2
                                AddTextBoxValue(DropDownList6, tab21, "sTxtLeft")
                            Case 3
                                AddTextBoxValue(DropDownList6, tab31, "sTxtLeft")
                        End Select
        End Select
            End If
        End While
        myTR.Close()
    End Function
然后在Page_Load()中调用:
  If blnLoadXml = 1 Then
            ReadRotorXmlFile(Session("ReadFileName"))
            Session("blnLoadXml") = 0
        End If
但是textbox控件中老是读不进去值,怎么回事