Seguindo exemplos encontrados na web e até mesmo no stackoverflow eu preenchi o botão btnGerarCSV
dessa forma.
Protected Sub btnGerarCSV_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGerarCSV.Click
Dim sb As New StringBuilder
Dim gv As New GridView
Try
Page.Response.Clear()
Page.Response.Buffer = True
Page.Response.AddHeader("content-disposition", "attachment;Pedido_" & Session("ddlPedido") & ".csv")
Page.Response.Charset = ""
Page.Response.ContentType = "application/vnd.ms-excel"
grdPedido.DataSource = Session("dtPedidosColetados")
For i As Integer = 0 To grdPedido.Columns.Count - 1
'Adiciona separador por vírgula
sb.Append(grdPedido.Columns(i).HeaderText + ","c)
Next
'Adiciona nova linha
sb.Append(vbCr & vbLf)
For i As Integer = 0 To grdPedido.Rows.Count - 1
For j As Integer = 0 To grdPedido.Columns.Count - 1
'Adiciona separador por vírgula
sb.Append(grdPedido.Rows(i).Cells(j).Text + ","c)
Next
'Adiciona nova linha
sb.Append(vbCr & vbLf)
Next
Response.Output.Write(sb.ToString())
Response.Flush()
Response.End()
Catch ef As ThreadAbortException
Exit Try
Catch ex As Exception
End Try
End Sub
A minha página funciona da seguinte forma: O usuário escolhe Data Inicial e Data Final e seleciona o botão buscar. Então o grdPedido
é preenchido e exibido em tela. Após isso dois botões são exibidos, um para exportar para excel em planilha, que está funcionando corretamente e um botão para CSV.
Porém o que me acontece é que ao chegar na linha For i As Integer = 0 To grdPedido.Columns.Count - 1
o número de colunas é = 0, mesmo o grid retornando a consulta normalmente.
Já alterei o código de diversas formas, mas cai sempre nesse mesmo problema.