2014-02-19 40 views
0

我有一个将DataGridView导出为CSV的方法。但我有一个场景,我有一个DataSet像2-3表init。我想将它导出到一个单独的CSV文件中,每个DataSet表在一个单独的CSV表单中。如何将多个DataSet表导出到多个CSV表单?

这里是我的方法,其中一个DataGridView转换成CSV文件(注意我也会接受的C#代码,如果它可以使用在线工具转换为Vb)中:

Private Sub subExportDGVToCSV(ByVal strExportFileName As String, ByVal DataGridView As DataGridView, Optional ByVal blnWriteColumnHeaderNames As Boolean = False, Optional ByVal strDelimiterType As String = ",") 

     Dim sr As StreamWriter = File.CreateText(strExportFileName) 
     Dim strDelimiter As String = strDelimiterType 
     Dim intColumnCount As Integer = DataGridView.Columns.Count - 1 
     Dim strRowData As String = "" 

     If blnWriteColumnHeaderNames Then 
      For intX As Integer = 0 To intColumnCount 
       strRowData += Replace(DataGridView.Columns(intX).Name, strDelimiter, "") & IIf(intX < intColumnCount, strDelimiter, "") 
      Next intX 
      sr.WriteLine(strRowData) 
     End If 

     For intX As Integer = 0 To DataGridView.Rows.Count - 1 
      strRowData = "" 
      For intRowData As Integer = 0 To intColumnCount 
       strRowData += Replace(DataGridView.Rows(intX).Cells(intRowData).Value, strDelimiter, "") & IIf(intRowData < intColumnCount, strDelimiter, "") '''''''''highlights this row 
      Next intRowData 
      sr.WriteLine(strRowData) 
     Next intX 
     sr.Close() 

    End Sub 

回答

0

你可以单独像XML映射表并分析它们,当你想使用

CSV:

<book> 
    <sheet> 
    //Sheet 1 
    ..... 
    </sheet> 

    <sheet> 
    //Sheet 2 
    ..... 
    </sheet> 
</book> 
相关问题