Protected Sub 匯出Word(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Me.GridView1.AllowSorting = False Response.Clear() Response.AddHeader("content-disposition", "attachment;filename=" & Me.HiddenField1.Value & ".doc") Response.ContentType = "application/vnd.ms-word" Dim stringWrite As System.IO.StringWriter = New System.IO.StringWriter Dim htmlWrite As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite) Response.Write("") GridView1.RenderControl(htmlWrite) Response.Write(stringWrite.ToString) Response.End() End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) '處理'GridView' 的控制項 'GridView' 必須置於有 runat=server 的表單標記之中 End Sub AutoEventWireup="false" EnableEventValidation="false"