ASP GridView在Excel導出不工作後刷新

Question

我在Ajax UpdatePanel中有一個Gridview。在每個GV行內，我都有一個複選框字段。這個想法是，用戶檢查他們想要的行，然後單擊一個按鈕，將該行中的標籤更新爲「已發貨」，然後將已檢查的行導出爲xls文件（真正的csv）。

當我的代碼隱藏觸發它遍歷gridview行時，查找檢查，更新數據庫以標記每行，然後使用.DataBind（）刷新網格。這完美和預期一樣。

現在我想還將選中的行導出爲ex​​cel。所以我創建了一個方法來做到這一點，並在更新每行以標記行並在.DataBind（）刷新之前將其彈出。現在，.DataBind（）永遠不會刷新。我確實收到了XLS下載，如果我手動刷新屏幕，則線條按預期更新。

這裏是我的代碼：

ASPX (Just a portion of the gridview): 
<asp:UpdatePanel ID="UpdatePanel1" runat="server"> 
     <ContentTemplate> 
     <asp:GridView ID="GridView1" runat="server" AllowSorting="True" AutoGenerateColumns="False" 
       DataKeyNames="MinqNum" DataSourceID="SqlDataSource1" Font-Size="Small" BorderColor="Black" 
       BorderStyle="Solid" BorderWidth="1px" CellPadding="0"> 
       <RowStyle Font-Size="Small" HorizontalAlign="Left" VerticalAlign="Bottom" BorderColor="#999999" 
        BorderStyle="Solid" BorderWidth="1px" Wrap="true" /> 
       <Columns> 
        <asp:TemplateField> 
        <ItemStyle CssClass="ItemStyle"/> 
        <HeaderStyle Wrap="true" Font-Size="X-Small" HorizontalAlign="Center" 
          VerticalAlign="Bottom" BorderWidth="0px" /> 
         <ItemTemplate> 
          <asp:ImageButton ID="btn_editss" runat="server" CommandName="Edit" ImageUrl="~/images/edit.gif" /> 
         </ItemTemplate> 
         <EditItemTemplate> 
          <asp:ImageButton ID="btn_savess" runat="server" CommandName="Update" ImageUrl="~/images/save.gif" /> 
          <asp:ImageButton ID="btn_cancelss" runat="server" CommandName="Cancel" ImageUrl="~/images/cancel.gif" /> 
         </EditItemTemplate> 
        </asp:TemplateField> 
        <asp:TemplateField HeaderText="Date" SortExpression="MinqDate"> 
         <ItemStyle CssClass="ItemStyle" HorizontalAlign="Center" Font-Size="Smaller"/> 
         <HeaderStyle Wrap="true" Font-Size="X-Small" HorizontalAlign="Center" VerticalAlign="Bottom" BorderWidth="0px"/> 
         <ItemTemplate> 
          <asp:Label ID="lbl_minqdate" runat="server" Text='<%#Bind("MinqDate", "{0:MM/dd/yy}") %>'></asp:Label> 
         </ItemTemplate> 
         <EditItemTemplate> 
          <asp:Label ID="lbl_minqdate" runat="server" Text='<%#Bind("MinqDate", "{0:MM/dd/yy}") %>'></asp:Label> 
         </EditItemTemplate> 
        </asp:TemplateField> 
</asp:GridView> 
</ContentTemplate> 
</asp:UpdatePanel> 


Button Click Event (codebehind): 
Protected Sub btn_markshipped_clicked(ByVal sender As Object, ByVal e As EventArgs) 
    For Each row As GridViewRow In GridView1.Rows 
     If row.RowType = DataControlRowType.DataRow Then 
      Dim isChecked As Boolean = DirectCast(row.FindControl("cb_supship"), CheckBox).Checked 
      If isChecked Then 
       'btn_markshipped.Text = "changed" 
       Dim cmd As New SqlCommand("UPDATE InquiryV4.dbo.Main SET Sup_Shipped = 'S' WHERE MinqNum = @MinqNum") 
       cmd.Parameters.AddWithValue("@MinqNum", row.Cells(5).Controls.OfType(Of Label)().FirstOrDefault().Text) 
       'cmd.Parameters.AddWithValue("@Country", row.Cells(2).Controls.OfType(Of DropDownList)().FirstOrDefault().SelectedItem.Value) 
       'cmd.Parameters.AddWithValue("@CustomerId", gvCustomers.DataKeys(row.RowIndex).Value) 
       Me.ExecuteQuery(cmd, "UPDATE") 
      End If 
     End If 
    Next 
    'btnUpdate.Visible = False 
    'Me.BindGrid() 
    btn_exportexcel() 
    GridView1.DataBind() 
End Sub 

btn_exportexcel sub (codebehind): 
    Private Sub btn_exportexcel() 
    Dim dt = New DataTable() 
    dt.Columns.Add("MTX PN") 
    dt.Columns.Add("Inq#") 
    dt.Columns.Add("Customer") 
    dt.Columns.Add("Qty") 
    dt.Columns.Add("Eng") 
    dt.Columns.Add("A/M") 
    For Each gvrow As GridViewRow In GridView1.Rows 
     Dim chk As Boolean = DirectCast(gvrow.FindControl("cb_supship"), CheckBox).Checked 
     If chk = True Then 
      Dim i = gvrow.RowIndex 
      Dim lbl_mtxpn As Label = gvrow.FindControl("lbl_mtxpn") 
      Dim lbl_inqnum As Label = gvrow.FindControl("lbl_inqnum") 
      Dim lbl_customer As Label = gvrow.FindControl("lbl_customer") 
      Dim lbl_SamplesRequested As Label = gvrow.FindControl("lbl_SamplesRequested") 
      Dim lbl_AssignedTo As Label = gvrow.FindControl("lbl_AssignedTo") 
      Dim lbl_LTN_Eng As Label = gvrow.FindControl("lbl_LTN_Eng") 
      Dim lbl_AcctMGR As Label = gvrow.FindControl("lbl_AcctMGR") 

      Dim dr = dt.NewRow() 
      dr.Item("MTX PN") = Convert.ToString(lbl_mtxpn.Text) 
      dr.Item("Inq#") = Convert.ToString(lbl_inqnum.Text) 
      dr.Item("Customer") = Convert.ToString(lbl_customer.Text) 
      dr.Item("Qty") = Convert.ToString(lbl_SamplesRequested.Text) 
      dr.Item("Eng") = Convert.ToString(lbl_LTN_Eng.Text) + "(" + Convert.ToString(lbl_AssignedTo.Text) + ")" 
      dr.Item("A/M") = Convert.ToString(lbl_AcctMGR.Text) 

      dt.Rows.Add(dr) 
     End If 
    Next 
    Dim GridView2 = New GridView() 
    GridView2.DataSource = dt 
    GridView2.DataBind() 
    Response.Clear() 
    Response.Buffer = True 
    Response.ContentType = "application/ms-excel" 
    Response.AddHeader("content-disposition", String.Format("attachment;filename={0}.xls", "selectedrows")) 
    Response.Charset = "" 
    Dim sw As New StringWriter() 
    Dim hw As New HtmlTextWriter(sw) 
    GridView2.RenderControl(hw) 
    Response.Output.Write(sw.ToString()) 
    Response.End() 
End Sub 

正如我所說的，沒有導出功能的gridview.databind（）按預期工作，並更新GridView的。一旦將導出功能置於其間，就會阻止發生.databind（）。

任何想法？只是爲了咯咯我也嘗試了一個response.redirect而不是這個問題。

Answer 1

您是否想要在同一個GridView中顯示2個GridViews或兩個相同數據的視圖？

Answer 2

發生這種情況，因爲你是：

1. 清除響應;
2. 發送Excel文件;
3. 結束迴應。

換句話說，服務器對您的請求的回覆是發送excel文件。它不會向瀏覽器發送一批新的HTML，因爲您告訴它在發送文件後停止。正如您所觀察到的，您的頁面不會更改，因爲您沒有向瀏覽器發送任何新的HTML。

我不認爲既可以發送文件又可以發送新的HTML到瀏覽器，但我可以證明是錯誤的。我見過的大多數人嘗試這兩種方式都涉及到重新綁定和頁面刷新，然後對服務器進行類似Ajax的GET調用以獲取Excel文件。其他選項包括打開一個新的非常小的窗口，它只是執行GET並返回Excel文件，然後在發送後關閉。