將 datatable 寫入XML

存成XML檔
Dim newXml As String = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "UTF-8" & Chr(34) & " standalone=" & Chr(34) & "no" & Chr(34) & "?>"
        newXml = newXml & "<ClinicalDocument classCode=" & Chr(34) & "DOCCLIN" & Chr(34) & " moodCode=" & Chr(34) & "EVN" & Chr(34) & " xmlns=" & Chr(34) & "urn:hl7-org:v3" & Chr(34) & " xmlns:voc=" & Chr(34) & "urn:hl7-org:v3/voc" & Chr(34) & " xmlns:xsi =" & Chr(34) & "http://www.w3.org/2001/XMLSchema-instance" & Chr(34) & "><資料> "

For i As Integer = 0 To dt.Rows.Count - 1

            newXml = newXml & "<備份>"

            newXml = newXml & "<資料庫主機名稱>" & dt.Rows(i).Item("資料庫主機名稱") & "</資料庫主機名稱>"

            newXml = newXml & "<資料庫名稱>" & dt.Rows(i).Item("資料庫名稱") & "</資料庫名稱>"

            newXml = newXml & "<備份方式>" & dt.Rows(i).Item("備份方式") & "</備份方式>"

            newXml = newXml & "<備份頻率>" & dt.Rows(i).Item("備份頻率") & "</備份頻率>"

            newXml = newXml & "<備份間隔>" & dt.Rows(i).Item("備份間隔") & "</備份間隔>"

            newXml = newXml & "<開始時間>" & dt.Rows(i).Item("開始時間") & "</開始時間>"

            newXml = newXml & "<備份路徑>" & dt.Rows(i).Item("備份路徑") & "</備份路徑>"

            newXml = newXml & "<DBCC>" & dt.Rows(i).Item("DBCC") & "</DBCC>"

            newXml = newXml & "<壓縮>" & dt.Rows(i).Item("壓縮") & "</壓縮>"

            newXml = newXml & "<刪除日數>" & dt.Rows(i).Item("刪除日數") & "</刪除日數>"

            newXml = newXml & "<清道夫>" & dt.Rows(i).Item("清道夫") & "</清道夫>"

            newXml = newXml & "<清道夫日數>" & dt.Rows(i).Item("清道夫日數") & "</清道夫日數>"

            newXml = newXml & "</備份>"

Next

        newXml = newXml & "</資料></ClinicalDocument>"

        Dim XmlFile As String = My.Application.Info.DirectoryPath & "\tg維護精靈.xml"

        Using sw As New StreamWriter(XmlFile) ', False, System.Text.Encoding.GetEncoding(950))

            sw.WriteLine(newXml)

            sw.Close()

        End Using