vb中创建xml

这里是原生的做法，具体使用可做相应的封装：

     Private Function GetUpdateRoomXml() As String
         Dim xmlDOM As New XmlDocument
         Dim xmlGACode As XmlElement = xmlDOM.CreateElement("SAVEAREA")
         For Each dr As DataRow In dtUpdate_p_Room.Rows
             Dim xmlRow As XmlElement = xmlDOM.CreateElement("ITEMS")
             Dim xmlRoomGUID As XmlElement = xmlDOM.CreateElement("RoomGUID")
             Dim xmlGABldCode As XmlElement = xmlDOM.CreateElement("GABldCode")
             Dim xmlGAUnitCode As XmlElement = xmlDOM.CreateElement("GAUnitCode")
             Dim xmlGARoomCode As XmlElement = xmlDOM.CreateElement("GARoomCode")
             Dim xmlGACode0 As XmlElement = xmlDOM.CreateElement("GACode")
             Dim xmlRoomCode As XmlElement = xmlDOM.CreateElement("RoomCode")
             xmlRoomGUID.InnerText = dr.Item("RoomGUID").ToString()
             xmlGABldCode.InnerText = dr.Item("GABldCode").ToString()
             xmlGAUnitCode.InnerText = dr.Item("GAUnitCode").ToString()
             xmlGARoomCode.InnerText = dr.Item("GARoomCode").ToString()
             xmlGACode0.InnerText = dr.Item("GACode").ToString()
             xmlRoomCode.InnerText = dr.Item("RoomCode").ToString()
             xmlRow.AppendChild(xmlRoomGUID)
             xmlRow.AppendChild(xmlGABldCode)
             xmlRow.AppendChild(xmlGAUnitCode)
             xmlRow.AppendChild(xmlGARoomCode)
             xmlRow.AppendChild(xmlGACode0)
             xmlRow.AppendChild(xmlRoomCode)
             xmlGACode.AppendChild(xmlRow)
         Next
         Return xmlGACode.OuterXml
     End Function