将数据从数据表导出到文本。 VB.NET

问题描述

我正在创建一个用于群发电子邮件的Windows窗体应用程序。我的联系人数据存储在数据表Customer中。现在我想将我的客户数据导出到文本文件。我有我的代码，但我一直想出一个空文件。我调试了代码并看到
它实际上正在读取数据，但它没有写入文本文件。以下是我的代码。有人可以告诉我我做错了吗？

 Dim ds As DataSet = MassEMailDataSet（）
 Dim dt As DataTable = ds.Tables （" Customer"）
 Dim filename As String =" C：\\\\\\\\\\\\\\\ 
 Dim sepChar As String ="，" 
 Dim writer As StreamWriter 
 
 writer = New StreamWriter（filename）
 
 Dim sep As String ="" 
 Dim builder As New Text.StringBuilder 
 
'标题行
 For each col As DataColumn in dt.Columns 
 builder.Append（sep）.Append（col。 ColumnName）
 sep = sepChar 
下一个
 writer.WriteLine（builder.ToString（））
 
'行行
 For Each row As DataRow in dt .Rows 
 sep ="" 
 For each col As DataColumn in dt.Columns 
 builder.Append（sep）.Append（row（col.ColumnName））
 sep = sepChar 
 Next 
 writer .WriteLine（builder.ToString（））
 builder.Clear（）
 Next 
 MsgBox（" Export done！"）

解决方案

这篇关于将数据从数据表导出到文本。 VB.NET的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！