datagridview到xml文件vb.net

Imports System.Xml

' 导出DataGridView数据到XML文件
Private Sub ExportToXml(dataGridView As DataGridView, filePath As String)
    Dim dataSet As New DataSet()
    dataSet.Tables.Add()

    ' 添加列
    For Each column As DataGridViewColumn In dataGridView.Columns
        dataSet.Tables(0).Columns.Add(column.HeaderText)
    Next

    ' 添加行数据
    For Each row As DataGridViewRow In dataGridView.Rows
        Dim rowData As New List(Of Object)()

        For Each cell As DataGridViewCell In row.Cells
            rowData.Add(cell.Value)
        Next

        dataSet.Tables(0).Rows.Add(rowData.ToArray())
    Next

    ' 保存为XML文件
    dataSet.WriteXml(filePath)
End Sub

' 假设存在一个名为dataGridView的DataGridView控件
Dim filePath As String = "data.xml"
ExportToXml(dataGridView, filePath)