从VB.Net到XML使用换行符

我正在将vb项目中的数据写入XML文档。当我回忆起这些数据时，前面的所有注释都以一行文字的形式返回。如何通过提交到XMl文档来打破界限

代码：

---

我假设您使用的是文本框，它的Multiline属性设置为True，并且您用于换行的字符是从xml文件输入的字符串的一部分，您可以尝试使用，或者如果需要拆分为单独的字符串，您可以使用

---

我假设您使用的是文本框，它的Multiline属性设置为True，并且您用于换行的字符是从xml文件输入的字符串的一部分，您可以尝试使用，或者如果需要拆分为单独的字符串，您可以使用

---

能否添加一个示例，说明如何将数据写入XML文件？谢谢。什么是文件或控件的数据源？@Wade73-它是XML文件（文档）。我们尝试在注释之间添加\n、
和vbNewLine，但都没有成功。查看这是否有帮助。您可以添加一个示例，说明如何将数据写入XML文件吗？谢谢。什么是文件或控件的数据源？@Wade73-它是XML文件（文档）。我们尝试在注释之间添加\n、
和vbNewLine，但均未成功。请查看这是否有帮助

Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles     btnSave.Click

        Dim AcctNum = txtAcctNum.Text.ToString

        'Dim note1 As String = ""

        'Dim linebreak As String = "<br />"

        'Str & VBNewLine
        'Str & VBCrLf

        Dim note2 As String = TxtNotes.Text
        'note2(0) = vbNewLine
        'note2(1) = TxtNotes.Text()

        Dim note3 As String = txtPastNote.Text

        note2 = note3 + "\n" + note2

        Dim root As XElement = XElement.Load("CreditApp.xml")

        Dim customer = From el In root.<custData>
                       Where el.<AcctNum>.Value = AcctNum
                       Select el

        For Each element In customer
            element.SetElementValue("Note", note2)
        Next

        'Dim NewNote As String = note1 + note2

        'Dim doc As New XmlDocument
        'doc.Load("CreditApp.xml")

        'Dim custData As XmlElement = doc.CreateElement("custData")

        'Dim note As XmlElement = doc.CreateElement("Note")
        'note.InnerText = NewNote

        'custData.AppendChild(note)
        'doc.DocumentElement.AppendChild(custData)

        root.Save("CreditApp.xml")
        MessageBox.Show("NOTES SAVE")

    End Sub

 For Each element In customer
            txtSSN.Text = element.ssn
            txtfName.Text = element.fname
            txtlName.Text = element.lname
            txtAcctNum.Text = element.acctnum
            txtVerfiWord.Text = element.passcode
            txtAcctAmt.Text = element.acctAval
            txtAcctBal.Text = element.acctbal
            txtLPmtAmt.Text = element.lpmtamt
            txtLPmtDate.Text = element.lpmtdate
            txtGender.Text = element.gender
            txtAddress.Text = element.address
            txtCity.Text = element.city
            txtState.Text = element.state
            txtZip.Text = element.zip
            txtPhone.Text = element.phone
            txtEmail.Text = element.email
            txtCreditLmt.Text = element.creditlim
            txtIntRate.Text = element.intrate
            txtMinPmtDue.Text = element.minpay
            txtPmtDueDate.Text = element.pmtduedate
            txtPastNote.Text = element.note

end sub

txtPastNote.Text = element.note.Replace("\n", vbCrLf)