none
For Next para marcar um CheckBoxList RRS feed

  • Pergunta

  • 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
    

    segunda-feira, 16 de julho de 2012 19:14

Respostas

  • 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

           

    • Marcado como Resposta Wilson Boris segunda-feira, 16 de julho de 2012 20:03
    segunda-feira, 16 de julho de 2012 19:44

Todas as Respostas