VB.Net组装xml

Private Shared Function getXML() As String
        Dim xmlDoc As String = ""
        Dim text As XmlText
        Dim doc As New XmlDocument

        '加入XML的声明段落 
        Dim node As XmlNode = doc.CreateXmlDeclaration("1.0", "UTF-8", "")
        doc.AppendChild(node)

        '加入一个根元素<MfgTaskInfo></MfgTaskInfo>
        Dim ele1 As XmlElement = doc.CreateElement("", "MfgTaskInfo", "")
        text = doc.CreateTextNode("")
        ele1.AppendChild(text)
        doc.AppendChild(ele1)

        '加入一个子元素<MfgTask></MfgTask>
        Dim ele2 As XmlElement = doc.CreateElement("", "MfgTask", "")
        text = doc.CreateTextNode("")
        ele2.AppendChild(text)

        '创建一个子元素<ID></ID>
        Dim ele3 As XmlElement = doc.CreateElement("", "ID", "")
        text = doc.CreateTextNode("122211002373")
        ele3.AppendChild(text)
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele3)

        '创建一个子元素<DispatchEmployee></DispatchEmployee>
        Dim ele4 As XmlElement = doc.CreateElement("", "DispatchEmployee", "")
        text = doc.CreateTextNode("C小明")
        ele4.AppendChild(text)
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele4)

        '创建一个子元素<WorkCenterName></WorkCenterName>
        Dim ele5 As XmlElement = doc.CreateElement("", "WorkCenterName", "")
        text = doc.CreateTextNode("JLXT")
        ele5.AppendChild(text)
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele5)

        '创建一个子元素<DispatchDate></DispatchDate>
        Dim ele6 As XmlElement = doc.CreateElement("", "DispatchDate", "")
        text = doc.CreateTextNode("2019-05-15 08:32:49")
        ele6.AppendChild(text)
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele6)

        '加入一个子元素<CommonExtendData></CommonExtendData>
        Dim CommonExtendDataEl As XmlElement = doc.CreateElement("", "CommonExtendData", "")
        text = doc.CreateTextNode("")
        CommonExtendDataEl.AppendChild(text)
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(CommonExtendDataEl)

        '加入一个子元素<Fields></Fields>
        Dim fields1 As XmlElement = doc.CreateElement("", "Fields", "")
        text = doc.CreateTextNode("")
        fields1.AppendChild(text)
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(CommonExtendDataEl).AppendChild(fields1)


        '这里要循环添加
        '=============================================================================================================
        '创建一个子元素<Field></Field>
        Dim field1 As XmlElement = doc.CreateElement("", "Field", "")
        text = doc.CreateTextNode("002372")
        field1.AppendChild(text)
        '为子元素"Field"增加两个属性 
        field1.SetAttribute("Name", "ht6_part_no")
        field1.SetAttribute("Title", "零部件编号")
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(CommonExtendDataEl).AppendChild(fields1).AppendChild(field1)

        '创建一个子元素<Field></Field>
        Dim field2 As XmlElement = doc.CreateElement("", "Field", "")
        text = doc.CreateTextNode("10车间")
        field2.AppendChild(text)
        '为子元素"Field"增加两个属性 
        field2.SetAttribute("Name", "ht6_department")
        field2.SetAttribute("Title", "车间")
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(CommonExtendDataEl).AppendChild(fields1).AppendChild(field2)

        '创建一个子元素<Field></Field>
        Dim field3 As XmlElement = doc.CreateElement("", "Field", "")
        text = doc.CreateTextNode("DNC测试001")
        field3.AppendChild(text)
        '为子元素"Field"增加两个属性 
        field3.SetAttribute("Name", "ht6_part_name")
        field3.SetAttribute("Title", "零部件名称")
        doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(CommonExtendDataEl).AppendChild(fields1).AppendChild(field3)
        '=============================================================================================================

        xmlDoc = doc.ToString()
        Return xmlDoc
    End Function

输出结果：

<?xml version="1.0" encoding="UTF-8"?>
<MfgTaskInfo>
    <MfgTask>
        <ID>122211002373</ID>
        <DispatchEmployee>C小明</DispatchEmployee>
        <WorkCenterName>JLXT</WorkCenterName>
        <DispatchDate>2019-05-15 08:32:49</DispatchDate>
        <CommonExtendData>
            <Fields>
                <Field Name="ht6_part_no" Title="零部件编号">002372</Field>
                <Field Name="ht6_department" Title="车间">10车间</Field>
                <Field Name="ht6_part_name" Title="零部件名称">DNC测试001</Field>
            </Fields>
        </CommonExtendData>
    </MfgTask>
</MfgTaskInfo>