如何将数据表转换为XML [英] How to convert the datatable to XML

问题描述

 Private Sub DatatableXml（ByVal dtTemp As DataTable）
 
 Dim _excel As New Microsoft.Office.Interop.Excel.Application 
 Dim wBook As Microsoft.Office。 Interop.Excel.Workbook 
 Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet 
 
 wBook = _excel.Workbooks.Add（）
 wSheet = wBook.ActiveSheet（）
 
 Dim dt As System.Data.DataTable = dtTemp 
 Dim dc As System.Data.DataColumn 
 Dim dr As System.Data.DataRow 
 Dim colIndex As Integer = 0 
 Dim rowIndex As Integer = 0 
 
 For Each dc In dt.Columns 
 colIndex = colIndex + 1 
 _excel.Cells（1，colIndex）= dc。 ColumnName 
下一个
 
 For each dr In dt.Rows 
 rowIndex = rowIndex + 1 
 colIndex = 0 
 For each dc In dt.Columns 
 colIndex = colIndex + 1 
 _excel.Cells（rowIndex + 1，colIndex）= dr（dc.ColumnName）
 Next 
 Next 
 
 wSheet.Columns.AutoFit（）
 
 Dim strFileName As String =DataTable.xlsx
如果是System.IO.File.Exists（strFileName）那么
 System.IO .File.Delete（strFileName）
结束如果
 wBook.SaveAs（DataTable.xlsx）
 wBook.Close（）
 _excel.Quit（）
 End Sub 
 

我尝试过：



以下命令将日期表保存为excel

现在如何将数据表转换为xml



用拳头row as element tags

解决方案

尝试 DataTable.WriteXml（）

参考： DataTable.WriteXml方法（TextWriter，Boolean）（System.Data） [ ^ ]

这是我朋友的一篇很棒的文章 -

C#.Net-如何在Asp.net中将DataTable转换为XML字符串，VB.NET - ASP .NET，C＃.NET，VB.NET，JQuery，JavaScript，Gridview [ ^ ]



希望，它会有所帮助：）

Private Sub DatatableXml(ByVal dtTemp As DataTable)

    Dim _excel As New Microsoft.Office.Interop.Excel.Application
    Dim wBook As Microsoft.Office.Interop.Excel.Workbook
    Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet

    wBook = _excel.Workbooks.Add()
    wSheet = wBook.ActiveSheet()

    Dim dt As System.Data.DataTable = dtTemp
    Dim dc As System.Data.DataColumn
    Dim dr As System.Data.DataRow
    Dim colIndex As Integer = 0
    Dim rowIndex As Integer = 0

    For Each dc In dt.Columns
        colIndex = colIndex + 1
        _excel.Cells(1, colIndex) = dc.ColumnName
    Next

    For Each dr In dt.Rows
        rowIndex = rowIndex + 1
        colIndex = 0
        For Each dc In dt.Columns
            colIndex = colIndex + 1
            _excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
        Next
    Next

    wSheet.Columns.AutoFit()

    Dim strFileName As String = "DataTable.xlsx"
    If System.IO.File.Exists(strFileName) Then
        System.IO.File.Delete(strFileName)
    End If
    wBook.SaveAs("DataTable.xlsx")
    wBook.Close()
    _excel.Quit()
End Sub

What I have tried:

the following command will save the date table to excel
now how to convert the datatable as xml

by fist row as element tags

解决方案

Try DataTable.WriteXml()
Ref: DataTable.WriteXml Method (TextWriter, Boolean) (System.Data)[^]
Here is a great article by one of my friend-
C#.Net- How to Convert DataTable to XML String in Asp.net, VB.NET - ASP.NET,C#.NET,VB.NET,JQuery,JavaScript,Gridview[^]

Hope, it helps :)

这篇关于如何将数据表转换为XML的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！