我写的代码主要部分如下:
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控件中老是读不进去值,怎么回事
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控件中老是读不进去值,怎么回事
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货