Ugh..Another Export to Excel

I'm sorry to be a bother but that didn't work.  It's not even coming up on the page as the export to excel is coming up right away. This is what I have.

  Private Sub export(ByVal gridview As GridView)        Response.Clear()
        Response.Buffer = True
        Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.xls")
        Response.Charset = ""
        Response.ContentType = "application/vnd.ms-excel"
        Dim sw As New IO.StringWriter()        Dim hw As New HtmlTextWriter(sw)
        GridView1.AllowPaging = False        GridView1.DataBind()
        GridView1.Caption = "T2 DI Region Pending Claims Listings"
        GridView1.HeaderRow.Attributes.Add("style", "font-size:10px")
        For i As Integer = 0 To GridView1.Rows.Count - 1
            Dim row As GridViewRow = GridView1.Rows(i)
            'Change Color back to white
            row.BackColor = System.Drawing.Color.White
            'Apply text style to each Row
            row.Attributes.Add("class", "textmode")        Next
        'Remove Controls        Me.RemoveControls(GridView1)
        GridView1.RenderControl(hw)        'style to format numbers to string
        Dim style As String = "<style> .textmode { mso-number-format:\@; } </style>"
        Response.Write(style)        Response.Output.Write(sw.ToString())
        Response.Flush()        Response.[End]()    End Sub

This code is not for display for Displaying you can use the logic of hiding and showing

For export I said you just need to export the Grid that's visible so that you don't face issues

Added this:

Private

Sub export(ByVal gridview AsGridView

)

GridView1.Visible =

True

Sub

This is in pageload:

Both grids are still coming up:

Then

export(GridView2)

Else

export(GridView1)

If

Keep the display and export separate

First export the GridView which you want to export

Secondly then hide show the GridViews as per your condition

I'm sorry I'm just not getting it!

This is what I have and both still appear:

 If Session("PendingClaims") = True Then            GridView2.Visible = True
        End If        Dim area As String        Dim Region As String
        area = Session("area")        Region = Session("region")    End Sub
    Private Sub export(ByVal gridview As GridView)       
        GridView2.Visible = True    End Sub