COMO EXPORTAR GRIDVIEW PARA DATATABLE,PDF, EXCEL?
Alguém tem algum exemplo para GridView sem ser com rendercontrol, pois só funciona para Repeater?
Grato.
Grato.
Geralmente não se exporta o grid em si, você exporta a fonte de dados do Grid. Uma List<T> por exemplo. Tem alguns que eu já vi mas nunca testei, como este aqui
Estou tentando jogar para DataTable (deu certo) !
E agora direto para um binário (testando....)
Dim dtRecords As New DataTable()
gvRetidas.AllowSorting = False
gvRetidas.AllowPaging = False
gvRetidas.PageIndex = 0
For Each col As DataControlField In gvRetidas.Columns
dtRecords.Columns.Add(New DataColumn(col.HeaderText))
Next
For Each row As GridViewRow In gvRetidas.Rows
Dim dr As DataRow = dtRecords.NewRow()
For Each cell As DataControlFieldCell In row.Cells
If cell.Visible = True Then
dr(row.Cells.GetCellIndex(cell)) = cell.Text.Replace([Ô] [Ô], [Ô][Ô])
End If
Next
dtRecords.Rows.Add(dr)
Next
[ô]Converter DataTable para Array de Bytes
Dim stream As New System.IO.MemoryStream()
Dim formatter As System.Runtime.Serialization.IFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
formatter.Serialize(stream, dtRecords)
[ô]Exportar Array de Bytes para PDF
Dim ArrayBytes As Byte() = stream.GetBuffer()
Response.Buffer = False
[ô]transmitfile self buffers
Response.Clear()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = [Ô]application/pdf[Ô]
Response.AddHeader([Ô]Content-Disposition[Ô], [Ô]attachment; filename=myfile.pdf[Ô])
Response.TransmitFile(Config.WEB.DataPath)
[ô]transmitfile keeps entire file from loading into memory
Response.[End]()
E agora direto para um binário (testando....)
Dim dtRecords As New DataTable()
gvRetidas.AllowSorting = False
gvRetidas.AllowPaging = False
gvRetidas.PageIndex = 0
For Each col As DataControlField In gvRetidas.Columns
dtRecords.Columns.Add(New DataColumn(col.HeaderText))
Next
For Each row As GridViewRow In gvRetidas.Rows
Dim dr As DataRow = dtRecords.NewRow()
For Each cell As DataControlFieldCell In row.Cells
If cell.Visible = True Then
dr(row.Cells.GetCellIndex(cell)) = cell.Text.Replace([Ô] [Ô], [Ô][Ô])
End If
Next
dtRecords.Rows.Add(dr)
Next
[ô]Converter DataTable para Array de Bytes
Dim stream As New System.IO.MemoryStream()
Dim formatter As System.Runtime.Serialization.IFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
formatter.Serialize(stream, dtRecords)
[ô]Exportar Array de Bytes para PDF
Dim ArrayBytes As Byte() = stream.GetBuffer()
Response.Buffer = False
[ô]transmitfile self buffers
Response.Clear()
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = [Ô]application/pdf[Ô]
Response.AddHeader([Ô]Content-Disposition[Ô], [Ô]attachment; filename=myfile.pdf[Ô])
Response.TransmitFile(Config.WEB.DataPath)
[ô]transmitfile keeps entire file from loading into memory
Response.[End]()
Faça seu login para responder