Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Evandro Sousa

CheckBox no DataGrid....

Recommended Posts

Ola pessoal beleza ?

Estou com problemas em checkar um CHK no DataGrid, Eu tenho um pagina q o usuario irá poder selecionar qntos caras quiser, mas a pagina contém uma paginação, entao ele poderá ir para a proxima pagina checkar mais caras e qndo voltar ele terao q trazer checkados os caras q já haviam sido checado anteriormente.

Eu consigo guardar o valor dos caras q foram checkados, mas quando volto para uma pagina anterior para q ele possa trazer checkados akeles q eu ja havia selecionado ele da o seguinte erro: "Object reference not set to an instance of an object.".

alguem sabe como posso fazer ele checkar os q haviam sido checkado sem dar este erro ?

Abaixo tem o código

 

Private Function VerificaId() As DataTable

Dim dt As New DataTable

Dim Contador As Integer

Dim i As Integer = 0

Dim valor As Integer

Try

dt = DirectCast(Session("Pagina"), DataTable)

If Not DirectCast(Session("Pagina"), DataTable) Is Nothing Then

' Aki ele faz um for para cada linha do DataRow, ele irá verificar se existe o ID q ele guarda dentro do DataGrid.

For Each DrItem As DataRow In dt.Rows

'Aki ele percorre cada linha do Grid para verificar se o ID q veio da linha do DR existe para ele marcar.

For Contador = 0 To dtgPes.Items.Count

Dim chkUsuarioSelecionado As New CheckBox

'Se a linha do DR for = ao ID do DataGrid ele marca o checkbox como True If DrItem("Coluna") = dtgPes.Items(Contador).Cells(0).Text Then

 

chkUsuarioSelecionado = DirectCast(dtgPes.FindControl("chkSelecionaUsuario"), CheckBox)

'Bem aki ele da o erro "Object reference not set to an instance of an object."

chkUsuarioSelecionado.Checked = True

If valor = 0 Then

valor = DirectCast(dtgPes.Items(Contador).Cells(Contador), Integer)

End If

 

Exit For

'ElseIf dtgPes.Cells(Contador).Text <> valor Then

'chkUsuarioSelecionado.Checked = False

End If

'Contador += 1

Next

i += 1

Next

End If

dt = Nothing

Catch ex As Exception

Response.Write("<script>alert('" & ex.Message & "');</script>")

End Try

End Function

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.