PRivate Function createXML_old(ByVal xmlName As String) As Boolean
　　　　Dim SrcPath As String = "c/project/srcXmlFiles/"        '產生的xml存放的目錄
        Try            Dim writer As New System.Xml.XmlTextWriter(SrcPath & xmlName, System.Text.Encoding.UTF8)            Dim namespaceUrl As String = "http://www.xxx.com" '驗證xsd需要用到的namespaceUrl            writer.Formatting = Formatting.Indented            writer.WriteStartDocument()            writer.WriteStartElement("root", "test", namespaceUrl)            writer.WriteElementString("firstNode1", "values")            writer.WriteElementString("firstNode2", "values")            writer.WriteElementString("firstNode3", "values")            writer.WriteElementString("firstNode4", "values)            writer.WriteElementString("firstNode5", values)            writer.WriteElementString("firstNode6Id", values)            Dim dv As DataView = cn.getData.DefaultView()            If dv.Count > 0 Then                For Each item As DataRowView In dv                    writer.WriteStartElement("firstNode7")                    writer.WriteElementString("secondNode1", values)                    writer.WriteElementString("secondNode2", values)                    writer.WriteElementString("secondNode3", values)                                    Dim dv2 As DataView = cn.getData2(item("firstNode6Id")).DefaultView()                    If dv2.Count > 0 Then                        For Each itemRMDetails As DataRowView In dvRMDetails                            writer.WriteStartElement("secondNode4")                            writer.WriteStartElement("thridNode1")                            writer.WriteElementString("thridNode2", values)                            writer.WriteEndElement() '關閉secondNode4                            writer.WriteEndElement() '關閉thridNode1                        Next                    Else                        writer.WriteStartElement("secondNode4")                        writer.WriteStartElement("thridNode1")                        writer.WriteElementString("thridNode2", "")                        writer.WriteEndElement() '關閉secondNode4                        writer.WriteEndElement() '關閉thridNode1                    End If                    writer.WriteEndElement() '關閉firstNode7                Next
　　　　　　　Else
                   'WriteLog Function            End If            writer.WriteEndElement()            writer.WriteEndDocument() '            writer.Close()  '將XML寫入文件并關閉writer            Return True        Catch ex As Exception            Return False        End Try    End Function