VB.NET DataTable如何导出Txt文件?

[jason20002003]

VB.NET DataTable如何导出Txt文件?

[蓝海D鱼]

Imports System.IO
Imports System.Text
Imports System.Data.SqlClient
Public Dt As New DataTable
Public Dr As DataRow
Public dc As DataColumn
Dim a As Integer
Public Sub ToTxt()
        ' Dim en As System.Text.Encoding
        ' en = Encoding.GetEncoding(936)
        Dim File_Name As String = "数据备份.txt"
        If File.Exists(File_Name) Then
            Console.WriteLine("{0} already exists.", File_Name)
            Return
        End If
        Dim Sw As StreamWriter = File.CreateText(File_Name)
        Dim i As Integer
        For i = 0 To Dt.Rows.Count - 1
            Dim s As String
            Dim y As Integer
            For y = 0 To Dt.Columns.Count - 1
                With Dt.Rows(i)
                    If Dt.Columns.Count = y + 1 Then
                        s &= .Item(y) & vbCrLf
                    Else
                        s &= .Item(y) & vbTab
                    End If

                End With
            Next
            Sw.WriteLine(s)
        Next
        Sw.Close()
    End Sub