爲什麼這個代碼不裏UpdatePanel
控制我在網絡表單,工作的四個CheckBoxe
S和一個TextBox
爲什麼這個編碼不能在updatepanel中工作?
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim str As String = Nothing
Dim id As String = Nothing
Dim ch As String = Nothing
For Each ctrl As Control In UpdatePanel1.Controls
If ctrl.GetType() Is GetType(CheckBox) Then
Dim chk As CheckBox = ctrl
If chk.Checked = True Then
If TextBox1.Text = "" Then
TextBox1.Text = chk.ID
Else
Dim SearchString As String = chk.ID
id = TextBox1.Text
If id.Contains(SearchString) <> -1 Then
TextBox1.Text = TextBox1.Text + "," + chk.ID
Else
End If
End If
Else
Dim SearchString As String = chk.ID
id = TextBox1.Text
If id.Contains(SearchString) <> -1 Then
Else
id = RemoveSubString(id, chk.ID)
TextBox1.Text = id
End If
End If
End If
Next
End Sub
Private Function RemoveSubString(ByVal stringvalue As String, ByVal stringremove As String) As String
Dim pos As Integer = stringvalue.IndexOf(stringremove)
If pos > 0 Then
Return stringvalue.Remove(pos - 1, stringremove.Length + 1)
ElseIf pos = 0 Then
If stringvalue.Contains(",") <> -1 Then
Return stringvalue.Remove(pos, stringremove.Length)
Else
Return stringvalue.Remove(pos, stringremove.Length + 1)
End If
End If
Return stringvalue
End Function
編碼是在UpdatePanel
外部的微小的工作......但更新面板裏面沒有工作...什麼它有錯嗎?
除非你已經過了最後期限,否則無需大聲呼喊。所有帽子都在線喊。 DONT – 2010-11-12 05:30:02
@astander OP可能不知道!更好,你可以改變它? – 2010-11-12 05:33:43
@Quintin Robinson已經這麼做了。 – 2010-11-12 05:34:38