Revision: 34777
Updated Code
at October 28, 2010 04:48 by derebus
Updated Code
Protected Sub chkResponsable_OnCheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim chkResponsable As CheckBox = CType(sender, CheckBox)
Dim dtResponsable As DataTable = Session("dtResponsable")
Dim idResponsable As Integer
'Navega por la gerarquia de controles que contienen al CheckBox hasta llegar al GridViewRow
Dim gvrFilaActual As GridViewRow = DirectCast(DirectCast(chkResponsable.Parent, DataControlFieldCell).Parent, GridViewRow)
'Obtiene el campo idResponsable que esta en la fila del CheckBox que se ha seleccionado y actualiza su estado bool
idResponsable = DirectCast(gvrFilaActual.Cells(2).FindControl("lblidResponsable"), Label).Text
If chkResponsable.Checked = True Then
For i = 0 To dtResponsable.Rows.Count - 1
If dtResponsable.Rows(i)("idResponsable") = idResponsable Then
dtResponsable.Rows(i)("valorBool") = 1
End If
Next
Else
For i = 0 To dtResponsable.Rows.Count - 1
If dtResponsable.Rows(i)("idResponsable") = idResponsable Then
dtResponsable.Rows(i)("valorBool") = 0
End If
Next
End If
Session("dtResponsable") = dtResponsable
lblConfirma.Text = ""
lblError.Text = ""
End Sub
'<asp:GridView ....>
' <Columns>
' ....
' <asp:TemplateField HeaderText="Seleccionar">
' <ItemTemplate>
' <asp:Checkbox ID="chkResponsable" runat="server" AutoPostBack="true" Checked='<%# Eval("valorBool") %>' OnCheckedChanged="chkResponsable_OnCheckedChanged" />
' </ItemTemplate>
' <HeaderStyle HorizontalAlign="Center" Width="5%" />
' <ItemStyle HorizontalAlign="Center" Width="5%" />
' </asp:TemplateField>
' </Columns>
'</asp:GridView>
Revision: 34776
Updated Code
at October 28, 2010 04:48 by derebus
Updated Code
Protected Sub chkResponsable_OnCheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim chkResponsable As CheckBox = CType(sender, CheckBox)
Dim dtResponsable As DataTable = Session("dtResponsable")
Dim idResponsable As Integer
'Navega por la gerarquia de controles que contienen al CheckBox hasta llegar al GridViewRow
Dim gvrFilaActual As GridViewRow = DirectCast(DirectCast(chkResponsable.Parent, DataControlFieldCell).Parent, GridViewRow)
'Obtiene el campo idResponsable que esta en la fila del CheckBox que se ha seleccionado y actualiza su estado bool
idResponsable = DirectCast(gvrFilaActual.Cells(2).FindControl("lblidResponsable"), Label).Text
If chkResponsable.Checked = True Then
For i = 0 To dtResponsable.Rows.Count - 1
If dtResponsable.Rows(i)("idResponsable") = idResponsable Then
dtResponsable.Rows(i)("valorBool") = 1
End If
Next
Else
For i = 0 To dtResponsable.Rows.Count - 1
If dtResponsable.Rows(i)("idResponsable") = idResponsable Then
dtResponsable.Rows(i)("valorBool") = 0
End If
Next
End If
Session("dtResponsable") = dtResponsable
lblConfirma.Text = ""
lblError.Text = ""
End Sub
'<asp:GridView ....>
' <Columns>
' ....
' <asp:TemplateField HeaderText="Seleccionar">
' <ItemTemplate>
' <asp:Checkbox ID="chkResponsable" runat="server" AutoPostBack="true" Checked='<%# Eval("valorBool") %>' OnCheckedChanged="chkResponsable_OnCheckedChanged" />
' </ItemTemplate>
' <HeaderStyle HorizontalAlign="Center" Width="5%" />
' <ItemStyle HorizontalAlign="Center" Width="5%" />
' </asp:TemplateField>
' </Columns>
'</asp:GridView>
Revision: 34775
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at October 28, 2010 04:45 by derebus
Initial Code
Protected Sub chkResponsable_OnCheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim chkResponsable As CheckBox = CType(sender, CheckBox)
Dim dtResponsable As DataTable = Session("dtResponsable")
Dim idResponsable As Integer
'Navega por la gerarquia de controles que contienen al CheckBox hasta llegar al GridViewRow
Dim gvrFilaActual As GridViewRow = DirectCast(DirectCast(chkResponsable.Parent, DataControlFieldCell).Parent, GridViewRow)
'Obtiene el campo idResponsable que esta en la fila del CheckBox que se ha seleccionado y actualiza su estado bool
idResponsable = DirectCast(gvrFilaActual.Cells(2).FindControl("lblidResponsable"), Label).Text
If chkResponsable.Checked = True Then
For i = 0 To dtResponsable.Rows.Count - 1
If dtResponsable.Rows(i)("idResponsable") = idResponsable Then
dtResponsable.Rows(i)("valorBool") = 1
End If
Next
Else
For i = 0 To dtResponsable.Rows.Count - 1
If dtResponsable.Rows(i)("idResponsable") = idResponsable Then
dtResponsable.Rows(i)("valorBool") = 0
End If
Next
End If
Session("dtResponsable") = dtResponsable
lblConfirma.Text = ""
lblError.Text = ""
End Sub
Initial URL
http://foros.elguille.info/Mensajes.aspx?ID=34315
Initial Description
Al hacer click en el checkbox que se encuentra dentro del gridview, capturo el id unico de quien pertenece dicho checkbox y guardo los cambios en el datatable.
Initial Title
Checkbox dentro de Gridview
Initial Tags
Initial Language
VB.NET