怎样才能将DataSet中的所有内容写入到XML文件？

Option Strict OffImports Microsoft.VisualBasic
Imports System
Imports System.IO
Imports System.Data
Imports System.Xml
Imports System.Xml.Xsl
Imports System.Xml.WriteStatePublic Class SaveDataSetXMLDataSample    Private Const m_XmlFile As String = "Rtxt.rpt"
    Private Const m_SchemaFile As String = "PersonPet.xsd"    Shared Sub Main()
        Dim mySaveDataSetXMLDataSample As SaveDataSetXMLDataSample
        mySaveDataSetXMLDataSample = New SaveDataSetXMLDataSample
        mySaveDataSetXMLDataSample.Run()
    End Sub    Public Sub Run()
        Try
            '用?系数据加?数据集
            Dim myDataSet As DataSet = New DataSet
            LoadDataSet(myDataSet)            DisplayTables(myDataSet)            '写出架?表示形式
            myDataSet.WriteXmlSchema(m_SchemaFile)            '写出 XML 数据窗体?系数据
            myDataSet.WriteXml(m_XmlFile, XmlWriteMode.IgnoreSchema)            '?数据集?建 XmlDataDocument
            Dim datadoc As XmlDataDocument = New System.Xml.XmlDataDocument(myDataSet)            '?示 XML
            DisplayXMLData(datadoc)
        Catch e As Exception
            Console.WriteLine("?常：" & e.ToString())
        End Try
    End Sub    ' 用?系数据加?数据集
    Private Sub LoadDataSet(ByVal myDataSet As DataSet)        Try
            Console.WriteLine("正在加?数据集 ...")            ' ?置数据集名称
            myDataSet.DataSetName = "PersonPet"            ' ?人和?物?建表
            Dim people As DataTable = New DataTable("Person")
            Dim pets As DataTable = New DataTable("Pet")            ' 在表中?置列
            Dim personname As DataColumn = New DataColumn("名称", GetType(System.String))
            Dim personAge As DataColumn = New DataColumn("年?", GetType(System.Int32))            Dim petname As DataColumn = New DataColumn("名称", GetType(System.String))
            Dim pettype As DataColumn = New DataColumn("?型", GetType(System.String))            ' 向 person 表添加列
            Dim id As DataColumn = people.Columns.Add("ID", GetType(System.Int32))
            id.AutoIncrement = True
            Dim primarykey As DataColumn() = New DataColumn() {id}
            people.PrimaryKey = primarykey
            people.Columns.Add(personname)
            people.Columns.Add(personAge)            ' 向 pet 表添加列
            id = pets.Columns.Add("ID", GetType(System.Int32))
            id.AutoIncrement = True
            pets.PrimaryKey = New DataColumn() {id}
            id.AutoIncrement = True
            Dim ownerid As DataColumn = pets.Columns.Add("所有者ID", GetType(System.Int32))
            Dim foreignkey As DataColumn() = New DataColumn() {ownerid}
            pets.Columns.Add(petname)
            pets.Columns.Add(pettype)            ' 向数据集添加表
            myDataSet.Tables.Add(people)
            myDataSet.Tables.Add(pets)            ' 添加人
            Dim  As DataRow = people.NewRow()
            (personname) = "cdcsa"
            (personAge) = 0
            people.Rows.Add()            Dim william As DataRow = people.NewRow()
            william(personname) = "William"
            william(personAge) = 1
            people.Rows.Add(william)            Dim james As DataRow = people.NewRow()
            james(personname) = "James"
            james(personAge) = 1
            people.Rows.Add(james)            Dim levi As DataRow = people.NewRow()
            levi(personname) = "Levi"
            levi(personAge) = 42
            people.Rows.Add(levi)            ' 添加?系
            Console.WriteLine("正在?建人与?物之?的?系 ...")
            Dim personpetrel As DataRelation = New DataRelation("PersonPet", primarykey, foreignkey, False)
            myDataSet.Relations.Add(personpetrel)            ' 添加?物
            Dim row As DataRow = pets.NewRow()
            row("所有者ID") = ("ID")
            row(petname) = "Frank"
            row(pettype) = "cat"
            pets.Rows.Add(row)            row = pets.NewRow()
            row("所有者ID") = william("ID")
            row(petname) = "Rex"
            row(pettype) = "dog"
            pets.Rows.Add(row)            row = pets.NewRow()
            row("所有者ID") = james("ID")
            row(petname) = "Cottontail"
            row(pettype) = "rabbit"
            pets.Rows.Add(row)            row = pets.NewRow()
            row("所有者ID") = levi("ID")
            row(petname) = "Sid"
            row(pettype) = "snake"
            pets.Rows.Add(row)            row = pets.NewRow()
            row("所有者ID") = levi("ID")
            row(petname) = "Tickles"
            row(pettype) = "spider"
            pets.Rows.Add(row)            row = pets.NewRow()
            row("所有者ID") = william("ID")
            row(petname) = "Tweetie"
            row(pettype) = "canary"
            pets.Rows.Add(row)            ' 提交更改
            myDataSet.AcceptChanges()        Catch e As Exception
            Console.WriteLine("?常：" & e.ToString())
        End Try
    End Subend class剩下清自己研究