|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
它有很多缺点的,有兴趣可以到网上去搜索一下。于是微软有发明了“下一代”C++:C++/CLI语言,这个可以解决在.NETFramework中,托管C++产生的问题。在《程序员》杂志上,lippman和李建中合作连载介绍了C++/CLI语言。datagrid|excel|数据|下载ImportsSystem
ImportsSystem.Text
NamespacetoExcel
功效:将ASP.net中DataGrid天生Excel文件下载。
Mountains改善:1、撑持中文2、埋没列不显现
日期:2002.10.30
PublicClassDataGridToCSV
PublicFunctionGenerateFile(ByRefPageAsSystem.Web.UI.Page,ByValMyDataGridAsSystem.Web.UI.WebControls.DataGrid,ByValFileNameAsString)AsString
DimrespAsHttpResponse
DimcolCountAsInteger=MyDataGrid.Columns.Count-1
resp=Page.Response
resp.ContentEncoding=System.Text.Encoding.GetEncoding("GB2312")办理中文乱码之关头
resp.Charset="utf-8"
resp.AddFileDependency(FileName)
resp.ContentType="Text/HTML"
resp.AppendHeader("Content-Type","text/html;charset=gb2312")
resp.AppendHeader("Content-Disposition","attachment;filename="+FileName)需要,做成下载文件
DimcolHeadersAsString=""
DimstrItemsAsStringBuilder=NewStringBuilder()
DimmyColAsDataGridColumn
DimiAsInteger
Fori=0TocolCount
myCol=MyDataGrid.Columns(i)
IfmyCol.Visible=TrueThen
colHeaders=colHeaders&myCol.HeaderText.ToString&","
EndIf
Next
IfcolHeaders.Length>0Then
colHeaders=colHeaders.Substring(0,colHeaders.LastIndexOf(","))
EndIf
colHeaders=colHeaders&Chr(13)&Chr(10)
resp.Write(colHeaders)
DimcolRowAsString
DimitemAsDataGridItem
ForEachitemInMyDataGrid.Items
resp.Write(FormatExportRow(colCount,item,MyDataGrid))
Nextitem
resp.End()
EndFunction
PrivateFunctionFormatExportRow(ByValcolCountAsInteger,ByValItemAsDataGridItem,ByValMyDataGridAsSystem.Web.UI.WebControls.DataGrid)AsString
DimstrItemAsString
DimiAsInteger
Fori=0TocolCount
IfMyDataGrid.Columns(i).Visible=TrueThen
IfItem.Cells(i).TextIsSystem.DBNull.ValueThen
Item.Cells(i).Text=""
EndIf
Ifi=colCountThen
strItem+=Item.Cells(i).Text.ToString&Chr(13)&Chr(10)
Else
strItem+=Item.Cells(i).Text.ToString&","
EndIf
EndIf
Next
strItem=Replace(strItem,"","")
ReturnstrItem
EndFunction
EndClass
EndNamespace来吧!老师们!我代表千千万万的asp.net/C#的初学者在这里呼唤着! |
|