我将记录保存到DataTable中,并在gridview中显示出来,想请教如何将datatable中的这些记录逐条的保存到文件,如文本文件中。急求!!
解决方案 »
- asp.net 网站上传服务器后 链接发生改变
- c# 通过IBM.Data.Informix.dll如果取得数据库中所有实例名称
- C#打印,打印winform中的内容,包括label内容和数据,不单是dataGridview。但是打印出来的结果像是图片,很模糊。有没有什么办法
- 求C# winform中一个功能,求代码或提点谢谢
- 请教各位大侠一个算法问题
- ¥¥¥¥ 仅需提供思路或解决方案~~~~巨分相送 ¥¥¥¥
- 请教在winform实现点击网页上的按钮问题
- c# wpf 实时曲线图问题
- 高手帮忙了
- 当private、protected修饰class
- 急,急,急。。一个关于引用javascript的问题!!!!
- C#OFFICE编程,每次打开EXCEL都提示vs正在配置。
Try
Response.Clear()
Response.Buffer = True
Response.Charset = "utf-8"
Response.AppendHeader("Content-Disposition", "attachment;filename=Customer.xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("utf-8")
Response.ContentType = "application/ms-excel"
Me.EnableViewState = False Dim StringWriter As New System.IO.StringWriter()
Dim htmlWriter As New System.Web.UI.HtmlTextWriter(StringWriter) Dim i As Integer
Dim dt As DataTable = Nothing
dt = Session("resultlist")
If dt.Rows.Count > 5000 Then
Dim bindDataTable As New DataTable Dim col As DataColumn = Nothing
col = New DataColumn("WorkOrderID")
bindDataTable.Columns.Add(col)
col = New DataColumn("CustomerID")
bindDataTable.Columns.Add(col)
col = New DataColumn("LocationID")
bindDataTable.Columns.Add(col)
col = New DataColumn("Gcc_Contact")
bindDataTable.Columns.Add(col)
col = New DataColumn("Description")
bindDataTable.Columns.Add(col)
col = New DataColumn("Scheduled_Completion")
bindDataTable.Columns.Add(col)
col = New DataColumn("Actual_Completion")
bindDataTable.Columns.Add(col)
col = New DataColumn("Received")
bindDataTable.Columns.Add(col)
col = New DataColumn("ClientNTE")
bindDataTable.Columns.Add(col)
col = New DataColumn("ProjectCode")
bindDataTable.Columns.Add(col)
For i = 0 To 4999
Dim dr As DataRow = bindDataTable.NewRow()
dr("WorkOrderID") = dt.Rows(i)("WorkOrderID")
dr("CustomerID") = dt.Rows(i)("CustomerID")
dr("LocationID") = dt.Rows(i)("LocationID")
dr("Gcc_Contact") = dt.Rows(i)("Gcc_Contact")
dr("Description") = dt.Rows(i)("Description")
dr("Scheduled_Completion") = dt.Rows(i)("Scheduled_Completion")
dr("Actual_Completion") = dt.Rows(i)("Actual_Completion")
dr("Received") = dt.Rows(i)("Received")
dr("ClientNTE") = dt.Rows(i)("ClientNTE")
dr("ProjectCode") = dt.Rows(i)("ProjectCode")
bindDataTable.Rows.Add(dr)
Next
Me.GridView1.AllowPaging = False
Me.GridView1.DataSource = bindDataTable
Else
Me.GridView1.AllowPaging = False
Me.GridView1.DataSource = dt
End If
Me.GridView1.DataBind()
setcustomerinfo(Me.GridView1) Me.GridView1.Columns(8).Visible = False
Me.GridView1.RenderControl(htmlWriter) Response.Write(StringWriter.ToString())
Response.Flush()
Response.End()
Catch ex As Exception
LogUtil.ErrorLog("new_customer_location_history.aspx", "Excel", ex.Message & vbCrLf & ex.StackTrace)
End Try End Sub