Usuário com melhor resposta
For Next

Pergunta
-
Em um gridView ligado em datasource, criei um nova coluna onde incluí um checkbox. Criei dois botões, btn_MarcarTudo e btn_LimparTudo.
No evento click dos botões, chamo um procedimento e passo como parametro "True" ou "False" até aí tudo funciona muito bem.
Ao entrar no procedimento e ler a primeira linaha de comando do laço FOR Next é que ocorre o problema, ou seja, após ler ele está indo para o final do procedimento, sem executar o as instruções do FOR.
Nota: O valor de grvNS.Rows.Count é maior que zero.
Protected
Sub setCheckBox(ByVal mySet As Boolean)
Dim i As Integer = 0
For i = 0 To i < grvNS.Rows.Count
Dim cb As CheckBox = CType(grvNS.Rows(i).Cells(2).FindControl("cb_Analisar"), CheckBox)
cb.Checked = mySet
Next iEnd Sub
Sergio Ivanenko- Editado Ivanenko terça-feira, 22 de dezembro de 2009 22:56
Respostas
-
Resolvi assim.
Dim cb As CheckBox
Dim i As Integer = 0For Each row As GridViewRow In grvNS.Rows
cb = CType(grvNS.Rows(i).Cells(2).FindControl("cb_Analisar"), CheckBox)
cb.Checked = mySet
i += 1
Next
Eu gostaria de saber porque o o For Next não está funcionando.
Sergio Ivanenko- Marcado como Resposta Ivanenko quarta-feira, 23 de dezembro de 2009 10:51
Todas as Respostas
-
Resolvi assim.
Dim cb As CheckBox
Dim i As Integer = 0For Each row As GridViewRow In grvNS.Rows
cb = CType(grvNS.Rows(i).Cells(2).FindControl("cb_Analisar"), CheckBox)
cb.Checked = mySet
i += 1
Next
Eu gostaria de saber porque o o For Next não está funcionando.
Sergio Ivanenko- Marcado como Resposta Ivanenko quarta-feira, 23 de dezembro de 2009 10:51
-
Ivanenko...
Poderia ser assim também.
For Each row As GridViewRow In grvNS.Rows
Dim cb As CheckBox
cb = CType(row.FindControl("cb_Analisar"), CheckBox)
cb.Checked = mySet
Next
Seu Loop estava errado, no For Next ele não aceita comparações (X < Y) etc...
Dessa forma deu certo:
Protected
Sub setCheckBox(ByVal mySet As Boolean)
For i As Integer = 0 To GridView1.Rows.Count - 1
Dim cb As CheckBox = CType(GridView1.Rows(i).Cells(2).FindControl("cb_Analisar"), CheckBox)
cb.Checked = mySetNext
End Sub
[]´s
-