gridview导出excel时怎么不是导出表内容，而是把整个web页面全部导出来了，大家帮忙看看

[newstarwxx]

导出的代码如下，vs05

Public Sub SaveAsFile(ByVal ctl As GridView, ByVal FileName As String)
Dim fname As String
fname = "attachment;filename=" + FileName + ".html"

Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.xls"
Response.AddHeader("content-disposition", fname)
Response.Charset = "gb2312"
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")

Dim myCItrad As New System.Globalization.CultureInfo("ZH-CN", True)
Dim stringwrite As New System.IO.StringWriter(myCItrad)
Dim htmlwrite As New System.Web.UI.HtmlTextWriter(stringwrite)

GridView1.Page.EnableViewState = False
GridView1.RenderControl(htmlwrite)
Response.Write(stringwrite)
'Response.End()
End Sub

还有最后一句vresponse。end（）会抱错，vgridview1不在runat=server标记内，而实际上标记是有的，form里也有该标记

[孟子E章]

Partial Class Default2
Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.ClearContent()
Response.AddHeader("content-disposition", "attachment; filename=MyExcelFile.xls")
Response.ContentType = "application/vnd.xls"
Response.Charset = "gb2312"
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Dim myCItrad As New System.Globalization.CultureInfo("ZH-CN", True)
Dim stringwrite As New System.IO.StringWriter(myCItrad)
Dim htmlwrite As New System.Web.UI.HtmlTextWriter(stringwrite)
GridView1.RenderControl(htmlwrite)
Response.Write(stringwrite.ToString())
Response.End()
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
GridView1.DataSource = CreateDataSource()
GridView1.DataBind()
End If
End Sub
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(System.Int32)))
dt.Columns.Add(New System.Data.DataColumn("text", GetType(String)))
For i As Integer = 0 To 6
dr = dt.NewRow()
dr(0) = i
dr(1) = "列表项目 " + i.ToString()
dt.Rows.Add(dr)
Next
Dim dv As System.Data.DataView = New System.Data.DataView(dt)
Return dv
End Function


Public Overrides Sub VerifyRenderingInServerForm(ByVal control As System.Web.UI.Control)

End Sub
End Class


关键的地方你少了这行

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As System.Web.UI.Control)

End Sub

[newstarwxx]

我是新手，net—lover你能不能说的明白一点，到底应该怎么写呢

[newstarwxx]

GridView1.RenderControl(htmlwrite)

这一行，把gridview1换成任何界面的控件好像都导出全部页面，怎么才能只导gridview里面的数据呢，我不知道该怎么写怎么传

[孟子E章]

拷贝即可运行的例子
http://blog.csdn.net/net_lover/archive/2006/09/13/1217998.aspx

[newstarwxx]

ctl.Page.EnableViewState = False
ctl.RenderControl(htmlwrite)

[newstarwxx]

问题解决了，多谢，马上结贴

[iclife]

MARK