Estou gerando um relatório e exportando para Excel, porém como a maioria dos relatórios a quantidade de colunas é dinâmica e estou montando o gridview dinamicamente. Estou necessitando demonstrar uma coluna que exiba imagens na tabela, então estou incluindo esta coluna após ter o resultado da minha consulta, até ai tudo bem, porém quando dou o databind() essa coluna que está no datasource do gridview não é incluindo na estrutura de controle do gridview, assim não renderizando e não demonstrando na planilha. Sabendo-se que guardo as imagens no banco em um array de bytes. Segue o trecho do meu código abaixo. Por favor me ajudem!
Dim grid As New GridView
If posicaoLogo = -1 Then
'Remove coluna identificador
dataTable.Columns.RemoveAt(0)
grid.DataSource = New DataView(dataTable)
grid.DataBind()
Else
Dim testeGrid As DataView = New DataView(dataTable)
'Tratamento Para inclusão da coluna tipo byte() devido a logomarca
Dim row As DataRow
Dim column As DataColumn
ReDim listaLogo(0)
ReDim listaIdentificadorMarca(0)
i = 0
For Each row In testeGrid.Table.Rows
ReDim Preserve listaLogo(i)
ReDim Preserve listaIdentificadorMarca(i)
For Each column In testeGrid.Table.Columns
If column.ToString = "Identificador" Then
listaIdentificadorMarca(i) = row(column).ToString
End If
If column.ToString = "Logo" Then
If row(column).ToString = "SIM" Then
listaLogo(i) = "1"
Else
listaLogo(i) = "0"
End If
End If
Next column
i = i + 1
Next row
Dim dtcloned As Data.DataTable = testeGrid.Table.Clone
Dim logomarcaMarca As DataColumn = New DataColumn("Logomarca")
logomarcaMarca.DataType = GetType(System.Byte())
dtcloned.Columns.Add(logomarcaMarca)
i = 0
Dim dtMarca As Data.DataTable = testeGrid.Table.Copy
Dim logomarcaMarcaAux As DataColumn = New DataColumn("Logomarca")
logomarcaMarcaAux.DataType = GetType(System.Byte())
dtMarca.Columns.Add(logomarcaMarcaAux)
For Each rowData As DataRow In dtMarca.Rows
If listaLogo(i) = "1" Then
marca.identificador = listaIdentificadorMarca(i)
marca = marca.getImagem
rowData.SetField(dtMarca.Columns(dtMarca.Columns.Count - 1), marca.imagem)
dtcloned.ImportRow(rowData)
Else
dtcloned.ImportRow(rowData)
End If
i = i + 1
Next
'Remove coluna de controle
dtcloned.Columns.RemoveAt(dtMarca.Columns.Count - 2)
'Remove coluna identificador
dtcloned.Columns.RemoveAt(0)
Dim dataviewMarcaAux As New DataView(dtcloned)
grid.DataSource = dataviewMarcaAux
grid.DataBind()
End If