急求有关gridview数据保存成文件的解决办法！！

[rechell]

我将记录保存到DataTable中，并在gridview中显示出来，想请教如何将datatable中的这些记录逐条的保存到文件，如文本文件中。急求！！

[xufzu123]

用流操作类，比如streamwriter

[SK_Aqi]

    Protected Sub btn_excel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_excel.Click
        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

[SK_Aqi]

楼主,改成C#的用下

[rechell]

好的，谢谢楼上！不过保存成.txt文件是一样的吗？我想一行存一条记录，各个字段用特殊符号分开，一条记录结束时回车，不知道用代码怎么实现？