For Next CheckBoxList Checked=True

Question

Como poderia carregar um CheckBoxList com a propriedade Checked=True após DropDownList.SelectedIndexChanged, sendo que codSemana varia de 1 até 7 conforme o código abaixo? O CheckBoxList  retorna, por exemplo:  2s,9s,16s,23s,30s, ao selecionar: ano 2012, mes julho e dia semana segunda.

Dim Dadapter102 As OleDbDataAdapter = New OleDbDataAdapter
        Dadapter102.SelectCommand = New OleDbCommand("SELECT codDiaMesAno,diaMesAno,codDiaSemana,diaSemSigla1,codMesAno,codSemana, count(codMesAno) AS 'Count' FROM tbAgendaCalendario GROUP BY codDiaMesAno,diaMesAno,codDiaSemana,diaSemSigla1,codMesAno,codSemana ORDER BY codDiaMesAno", New OleDbConnection(My.Settings.SConecte))
        Dadapter102.Fill(DSet, "TBCalendarioDia") 
ddlDia.Items.Clear()
            retDATASET.ReadXml(Server.MapPath("output.xml"))
            Dim ItemDataView As New DataView(retDATASET.Tables("TBCalendarioDia"))
            ItemDataView.RowFilter = "codMesAno = " & ddlMes.SelectedItem.Value & " AND CodSemana = " & ddlSemana.SelectedItem.Value
            ddlDia.DataSource = ItemDataView
            ddlDia.DataTextField = ("diaMesAno")
            ddlDia.DataValueField = ("codDiaMesAno")
            ddlDia.DataBind()
            ddlDia.Items.Insert(0, "")
            ddlDia.SelectedIndex = 0

Answer 1

Resolvido com:

For Each item As ListItem In CheckBoxList.Items
            If ddlEntHora1.Visible = True Then
                item.Selected = True
            End If
        Next

Answer 2

Amigo,

Legal, mas marque como resposta para ajudar a quem procura. Assim fica claro que resolveu.

Thread original:

http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/15a96994-4926-451d-ac57-657d1319375a

---

É possível sim! Ponha isso na sua cabeça. É possível. "Steve Jobs"

Eduardo Pires
www.eduardopires.net.br