16,552
社区成员
发帖
与我相关
我的任务
分享
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