Checkbox no HtmlRow

Question

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

Answer 1

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.