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