none
Checkbox no HtmlRow RRS feed

  • Pergunta

  • Boa tarde,

    Tenho um código que gera uma tabela dinâmica, e preciso inserir ao final de cada linha, uma checkbox, para poder selecionar determinadas linhas da table.

    Como posso fazer isso?

    Segue o código da tabela dinâmica:

        Protected Sub carregarGrid()
            Dim tbl As New HtmlTable
            tbl.Width = "100%"

            'Montando Cabeçalho
            Dim rowCabecalho As New HtmlTableRow

            'Colunas do Cabeçalho
            Dim clCodigo As New HtmlTableCell
            clCodigo.InnerHtml = "Código"

            Dim clData As New HtmlTableCell
            clData.InnerHtml = "Data"

            Dim clEmpresa As New HtmlTableCell
            clEmpresa.InnerHtml = "Empresa"

            Dim clAtivo As New HtmlTableCell
            clAtivo.InnerHtml = "Ativo"

            Dim clSeleciona As New HtmlTableCell
            clSeleciona.InnerHtml = "Seleciona"

            rowCabecalho.Cells.Add(clCodigo)
            rowCabecalho.Cells.Add(clData)
            rowCabecalho.Cells.Add(clEmpresa)
            rowCabecalho.Cells.Add(clAtivo)
            rowCabecalho.Cells.Add(clSeleciona)


            For Each htcell In rowCabecalho.Cells
                htcell.attributes.add("class", "cabecalho_tabela")
            Next

            tbl.Rows.Add(rowCabecalho)

            Dim iCtrlLinha As Integer = 0
            Dim strClassLinha As String = "linha_impar_tabela"



            For Each lista In cCodigo.ListaCodigo()

                Dim rowDados As New HtmlTableRow

                'Colunas de Dados
                Dim dClCodigo As New HtmlTableCell
                dClCodigo.InnerHtml = lista.CODIGO

                Dim dClData As New HtmlTableCell
                dClData.InnerHtml = lista.DATA

                Dim dClEmpresa As New HtmlTableCell
                dClEmpresa.InnerHtml = lista.EMPRESA

                Dim dClAtivo As New HtmlTableCell
                dClAtivo.InnerHtml = lista.ATIVO

                Dim dClVisualizar As New HtmlTableCell
                dClVisualizar.InnerHtml = "<a href=""VisualizarEmpresa.aspx?iA=" & lista.EMPRESA & """>" &
                    "<img src=""Img/Visualizar.png"" border=""0"" /></a>"

                rowDados.Cells.Add(dClCodigo)
                rowDados.Cells.Add(dClData)
                rowDados.Cells.Add(dClEmpresa)
                rowDados.Cells.Add(dClAtivo)

                For Each htcell In rowDados.Cells
                    If iCtrlLinha Mod 2 = 0 Then
                        strClassLinha = "linha_par_tabela"
                    Else
                        strClassLinha = "linha_impar_tabela"
                    End If
                    htcell.attributes.add("class", strClassLinha)
                Next
                tbl.Rows.Add(rowDados)
                iCtrlLinha += 1
            Next
            divResultadoBusca.Visible = True
            divResultadoBusca.Controls.Add(tbl)
        End Sub

    Obrigado

    segunda-feira, 25 de fevereiro de 2013 20:36

Todas as Respostas

  • olá, veja esses links :

    http://msdn.microsoft.com/en-us/library/ie/ms535262%28v=vs.85%29.aspx

    http://msdn.microsoft.com/en-us/library/system.web.ui.htmlcontrols.htmltablerow%28v=vs.71%29.aspx


    espero ter ajudado.

    terça-feira, 26 de fevereiro de 2013 17:37