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"
