您的位置：首页 > 编程语言 > ASP

ASP.NET 2.0中将 GridView 导出到 Excel 文件中

2007-05-15 08:49 766 查看

<%...@ Page Language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

Function CreateDataSource() As ICollection

Dim dt As System.Data.DataTable = New System.Data.DataTable

Dim dr As System.Data.DataRow

dt.Columns.Add(New System.Data.DataColumn("id", GetType(Int32)))

dt.Columns.Add(New System.Data.DataColumn("PkID", GetType(String)))

dt.Columns.Add(New System.Data.DataColumn("Title", GetType(String)))

Dim i As Integer = 0

While i < 6

dr = dt.NewRow

dr(0) = i

dr(1) = "123456789123456789123456789"

dr(2) = "<a href='http://dotnet.aspx.cc/'>欢迎光临【孟宪会之精彩世界】</a>"

dt.Rows.Add(dr)

System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)

End While

Dim dv As System.Data.DataView = New System.Data.DataView(dt)

Return dv

End Function

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)

If Not IsPostBack Then

GridView1.BorderWidth = Unit.Pixel(2)

GridView1.BorderColor = System.Drawing.Color.DarkOrange

GridView1.DataSource = CreateDataSource

GridView1.DataBind

End If

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

Response.Clear

Response.Buffer = True

Response.Charset = "GB2312"

Response.AppendHeader("Content-Disposition", "attachment;filename=FileName.xls")

Response.ContentEncoding = System.Text.Encoding.UTF7

Response.ContentType = "application/ms-excel"

Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter

Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)

Me.GridView1.RenderControl(oHtmlTextWriter)

Response.Output.Write(oStringWriter.ToString)

Response.Flush

Response.End

End Sub

Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

End Sub

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)

If e.Row.RowType = DataControlRowType.DataRow Then

e.Row.Cells(1).Attributes.Add("style", "vnd.ms-excel.numberformat:@;")

End If

End Sub

</script>

<title>将 GridView 导出到 Excel 文件中</title>

</head>

<body>

<asp:GridView ID="GridView1" runat="server" OnRowDataBound="GridView1_RowDataBound"

AutoGenerateColumns="false">

<asp:BoundField HeaderText="序号" DataField="id" />

<asp:BoundField HeaderText="身份证号" DataField="PkID" />

<asp:BoundField HeaderText="网址" DataField="Title" ReadOnly="true" HtmlEncode="false" />

</Columns>

</asp:GridView>

<asp:Literal ID="HiddenOut" runat="server" />

<asp:Button ID="Button1" runat="server" Text="导出" OnClick="Button1_Click" />

</form>

</body>

</html>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： excel asp.net asp server button string

相关文章推荐

新的分享

章节导航