repeater 导出Excel 里面没有数据,求解

se_llo 2012-08-16 01:30:40
Dim sw As StringWriter = New StringWriter
Dim hw As HtmlTextWriter = New HtmlTextWriter(sw)
Me.RepeaterTradeQuiry.RenderControl(hw)
Response.Clear()
RepeaterTradeQuiry.Page.EnableViewState = False
Response.Buffer = True

Response.ContentType = "application/vnd.ms-excel"
Response.Charset = "UTF-8"
Response.AppendHeader("Content-Disposition", "attachment;filename=""财务报表.xls""")

Dim S As String = ""
S = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8""><title> adsf</title></head><body><table ><tr><td>交易时间</td><td>订单号</td><td>票号</td><td>PNR-大</td><td>PNR-小</td><td>乘机人姓名</td><td>航程</td><td>交易类型</td><td>支出</td><td>收入</td><td>余额</td><td>操作员</td><td>备注</td></tr>"

Response.Write(S)
HttpContext.Current.Response.Write(sw.ToString())
Response.Flush()
Response.Write("</table></body></html>")
Response.End()
...全文
33 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

16,555

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧