vb.net 如何生成XML过程中如果生成类似<TCS:***>这样的节点？
<tcs:TcsLinkMan>
<tcs:Name>aaaaaaaaaaaa</tcs:Name>
<tcs:Department>text</tcs:Department>
<tcs:Duty>text</tcs:Duty>
<tcs:Telephone>text</tcs:Telephone>
<tcs:Mobile>text</tcs:Mobile>
<tcs:Fax>text</tcs:Fax>
<tcs:Address>text</tcs:Address>
<tcs:ZipCode>text</tcs:ZipCode>
<tcs:Email>text</tcs:Email>
<tcs:ImCode>text</tcs:ImCode>
<tcs:ImType>text</tcs:ImType>
</tcs:TcsLinkMan>

[解决办法]
指定namespace
[解决办法]

引用:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New SqlConnection()
Dim cmd As New SqlCommand
Dim rs As SqlDataReader
conn.ConnectionString = "server=192.168.1.229;database ='test' ;user id =sa;password='sa'"
conn.Open()
cmd.CommandText = "select * from MessageHead "
cmd.Connection = conn
cmd.CommandType = CommandType.Text
rs = cmd.ExecuteReader
While rs.Read
'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myTW As New XmlTextWriter(Application.ExecutablePath & "\..\dlsave.XML", System.Text.Encoding.UTF8)

myTW.WriteStartDocument()
myTW.Formatting = Formatting.Indented
myTW.WriteStartElement("TCS101Message")
myTW.WriteStartElement("MessageHead")
myTW.WriteElementString("MessageType", Trim(rs("MessageType")))
myTW.WriteElementString("MessageId", Trim(rs("MessageId")))
myTW.WriteElementString("MessageTime", Trim(rs("MessageTime")))
myTW.WriteElementString("SenderId", Trim(rs("SenderId")))
myTW.WriteElementString("SenderAddress", Trim(rs("SenderAddress")))
myTW.WriteElementString("ReceiverId", Trim(rs("ReceiverId")))
myTW.WriteElementString("ReceiverAddress", Trim(rs("ReceiverAddress")))
myTW.WriteStartElement("MessageBody")
myTW.WriteElementString("ReceiverAddress", Trim(rs("ReceiverAddress")))
myTW.WriteStartElement("TcsFlow201")
myTW.WriteElementString("ReceiverAddress", Trim(rs("ReceiverAddress")))
myTW.WriteEndElement()
myTW.WriteEndElement()
myTW.WriteEndElement()
myTW.WriteEndElement()
myTW.WriteEndDocument()
myTW.Close()
End While
rs.Close()
这是代码，能帮忙修改一下吗,NET不熟，第一次用XML，所以听不明白！

Dim doc As XmlDocument = New XmlDocument
        Call doc.AppendChild(doc.CreateProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")) 
 
        Dim root As XmlElement = doc.CreateElement("tcs:TcsLinkMan")

        Dim node1 As XmlElement = doc.CreateElement("tcs:Name")
        node1.InnerText = "aaaaaaaaaaaa"
        root.AppendChild(node1)

        Dim node2 As XmlElement = doc.CreateElement("tcs:Department")
        node2.InnerText = "text"
        root.AppendChild(node2)

        Dim node3 As XmlElement = doc.CreateElement("tcs:Duty")
        node3.InnerText = "text"
        root.AppendChild(node3)

        Dim node4 As XmlElement = doc.CreateElement("tcs:Telephone")
        node4.InnerText = "text"
        root.AppendChild(node4)

        Dim node5 As XmlElement = doc.CreateElement("tcs:Mobile")
        node5.InnerText = "text"
        root.AppendChild(node5)

        Dim node6 As XmlElement = doc.CreateElement("tcs:Fax")
        node6.InnerText = "text"
        root.AppendChild(node6)

        Dim node7 As XmlElement = doc.CreateElement("tcs:Address")
        node7.InnerText = "text"
        root.AppendChild(node7)

        Dim node8 As XmlElement = doc.CreateElement("tcs:ZipCode")
        node8.InnerText = "text"
        root.AppendChild(node8)

        Dim node9 As XmlElement = doc.CreateElement("tcs:Email")
        node9.InnerText = "text"
        root.AppendChild(node9)

        Dim node10 As XmlElement = doc.CreateElement("tcs:ImCode") 
 
        node10.InnerText = "text"
        root.AppendChild(node10)

        Dim node11 As XmlElement = doc.CreateElement("tcs:ImType")
        node11.InnerText = "text"
        root.AppendChild(node11)



        doc.AppendChild(root)
        doc.Save("linkMan.xml")

[解决办法]
http://msdn.microsoft.com/query/dev10.query?appId=Dev10IDEF1&l=ZH-CN&k=k(SYSTEM.XML.LINQ.XNAMESPACE);k(TargetFrameworkMoniker-%22.NETFRAMEWORK%2cVERSION%3dV4.0%22);k(DevLang-CSHARP)&rd=true

这里有相应的例子，你可以试试看。