Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload
Dim conn As Control
For Each conn In Page.Controls(1).Controls
Select Case conn.ID
Case "txt"
CType(conn, TextBox).Text = "bbbbbbbbbbbbbbbbbbbbbbb"
Case "textbox4"
CType(conn, TextBox).Text = "bbbbbbbbbbbbbbbbbbbbbbb"
End Select
Next
End Sub
为什么值不能被赋上