배열 목록에 추가 된 체크 박스 만 추가하는 방법은 무엇입니까?

Question

체크 표시가있는 경우에만 체크 상자 텍스트를 삽입하고 싶습니다. .. 그 작업을 수행하는 방법을 ...

는 는 서브를 Page_Load 보호 (개체로 ByVal의 보낸 사람, 경우 System.EventArgs으로 ByVal의 e)이 Me.Load를 처리

TextBox1.Text = Request.QueryString을 ("TXT") 희미한는 문자열로 갈라() = TextBox1.Text.Split (",") 문자열에서 각 ID에 대한 제어 = Page.FindControl이 코드는 모든 체크 박스를 추가합니다

 If Not ctrl Is Nothing Then 
      Dim chkbox As CheckBox = DirectCast(ctrl, CheckBox) 
      chkbox.Enabled = False 
      Dim arrList As New ArrayList() 
      'populate the list with some temp values 
      arrList.Add(CheckBox1.Text) 
      arrList.Add(CheckBox2.Text) 

      'databind the list to our repeater 
      Repeater1.DataSource = arrList 
      Repeater1.DataBind() 
     End If 
    Next 
End Sub 

("체크 박스"& ID)로 희미한 Ctrl 키를 갈라 여부를 확인하거나하지!

는 몸은 ... 그렇게 할 수 있습니다 만 체크 박스가

Answer 1

이 당신이 기대하는 것입니다 배열 목록에 추가됩니다 확인하는 것이?

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

TextBox1.Text = Request.QueryString("txt") 
Dim splitted As String() = TextBox1.Text.Split(",") 

For Each id As String In splitted 
    Dim ctrl As Control = Page.FindControl("checkbox" & id) 

     If Not ctrl Is Nothing Then 
      Dim chkbox As CheckBox = DirectCast(ctrl, CheckBox) 
      chkbox.Enabled = False 
      Dim arrList As New ArrayList() 
      'populate the list with some temp values 
      if chkbox.Checked then 
        arrList.Add(chkbox.Text) 
      end if 

      'databind the list to our repeater 
      Repeater1.DataSource = arrList 
      Repeater1.DataBind() 
     End If 
    Next 
End Sub