Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
passado

Adicionar Botao a DataList e Regatar Valor

Recommended Posts

passado

Boas, eu tenho uma datalist e quero adicionar um botao, que ao ser clicado ele apanhe um valor e coloque numa variavel de sessão, eu so nao sei apanhar o valor....

Isto para ele abrir outra pagina para mostar detalhes...ja agora que control devo usar para mostrar uma lista tipo tabela assim:

Cabeçalho ! Cabeçalho ! Cabeçalho

______________________________

Produto    | Produto    | Produto

_______________________________

produto    |  Produto    | Produto

Cumps

Share this post


Link to post
Share on other sites
paulo silva

Boa tarde,

Mas onde se encontra o valor que queres apanhar? dentro da datalist? se assim for podes ir pelo FindControl e depois passas então para a variável de sessão,

Para isso deves usar uma gridview penso que é suficiente.

Cumprimentos Paulo Silva

Share this post


Link to post
Share on other sites
paulo silva

Aqui tens o Código para apanhar o valor, Onde tens "label" colocas o nome do campo e depois defines o control.

CType(DataList1.FindControl("label"), Label).Text

Cumprimentos Paulo Silva

Share this post


Link to post
Share on other sites
passado

Boas tentei usar isso assim:

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim id As Integer = CType(datalistaluguer.FindControl("id_aluguerLabel"), Label).Text
        Session("idaluguer") = id
        Page.Response.Redirect("DetalhesAluguer.aspx", False)
    End Sub

Mas retorna um erro na primeira linha:

"A referência de objecto não foi definida como uma instância de um objecto."

Share this post


Link to post
Share on other sites
passado

boas,

Que tipo de erro?

Cumprimentos Paulo Silva

Da esta mensagem

"A referência de objecto não foi definida como uma instância de um objecto."

e a aplicação para

Share this post


Link to post
Share on other sites
passado

    Private Sub datalistaluguer_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles datalistaluguer.ItemCommand
        Dim cmd As String = e.CommandSource.CommandName
        If cmd = "select" Then
            Dim id As Integer = e.Item.ItemIndex
            Session("idaluguer") = ""
            Page.Response.Redirect("DetalhesAluguer.aspx", False)
        End If
    End Sub

Pessoal eu ate agora tenho isto mas continou sem conseguir ir buscar o valor que quero, precisava mesmo de ajuda

Share this post


Link to post
Share on other sites
ahco

Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound

If e.Item.ItemType = ListItemType.AlternatingItem OrElse e.Item.ItemType = ListItemType.Item Then

            Dim idnoticia As Label = TryCast(e.Item.FindControl("IDNoticiaLabel"), Label)

            Dim query As String = "select galeria from tblnoticia where idnoticia='" + idnoticia.Text + "'"
            Dim conexao As New SqlConnection(conn)
            Dim comando As New SqlCommand(query, conexao)
            Dim dbpasta As String
            conexao.Open()
            dbpasta = comando.ExecuteScalar()
            conexao.Close()

end if
end sub

eu fui buscar os valores assim, alguma coisa apita

       

Share this post


Link to post
Share on other sites
paulo silva

Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound

If e.Item.ItemType = ListItemType.AlternatingItem OrElse e.Item.ItemType = ListItemType.Item Then

            Dim idnoticia As Label = TryCast(e.Item.FindControl("IDNoticiaLabel"), Label)

            Dim query As String = "select galeria from tblnoticia where idnoticia='" + idnoticia.Text + "'"
            Dim conexao As New SqlConnection(conn)
            Dim comando As New SqlCommand(query, conexao)
            Dim dbpasta As String
            conexao.Open()
            dbpasta = comando.ExecuteScalar()
            conexao.Close()

end if
end sub

eu fui buscar os valores assim, alguma coisa apita

       

Exactamente isto  ;)

Cumprimentos Paulo Silva

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.