For Next para marcar um CheckBoxList

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

For Each item As ListItem In chkApplications.Items
	If ValidaCriterioNecessarioParaMarcar = True Then
		item.Selected = True
	End If
Next

---

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

Eduardo Pires
www.eduardopires.net.br

       

Answer 2

Certíssimo Eduardo, muito obrigado.

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

Answer 3

Disponha ;)

---

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

Eduardo Pires
www.eduardopires.net.br