您好我有这个xml文件
<?xml version="1.0" standalone="true"?>
-<DATA>
-<patient_no.1>
<Patient_name/>Sylvester</Patient_name>
<card_number/>1234567890</card_number>
</patient_no.1>
</DATA>
我希望下次每当使用新数据更新数据时更新xml,以便新的dile是这样的:
<?xml version="1.0" standalone="true"?>
-<DATA>
-<patient_no.1>
<Patient_name/>Sylvester</Patient_name>
<card_number/>1234567890</card_number>
</patient_no.1>
-<patient_no.2>
<Patient_name/>Arnold</Patient_name>
<card_number/>1234567</card_number>
</patient_no.2>
</DATA>
请注意,<patient_no.>
已增加到2.这就是我想要自动化的内容。 patient_name
和Card_number
通过文本框进行更新。
我知道我将不得不使用xmlread / xmlwrite,但我无法搞清楚。我到目前为止:
Dim Dc As XmlDocument
Dim root As XmlNode
Dim node As XmlNode
Dc = New XmlDocument()
Dc.Load(My.Computer.FileSystem.CurrentDirectory & "\patient.xml")
root = Dc.SelectSingleNode("/DATA")
If Dc.SelectSingleNode("/DATA/NodeToBeUpdated") _
Is Nothing Then
node = root.InsertBefore(
Dc.CreateNode(XmlNodeType.Element, "NodeToBeUpdated", ""),
Dc.SelectSingleNode("/DATA/NodeToBeUpdated"))
node.AppendChild(
Dc.CreateNode(XmlNodeType.Element, "Patient_name", ""))
node.AppendChild(
Dc.CreateNode(XmlNodeType.Element, "card_number", ""))
End If
Dc.Save(My.Computer.FileSystem.CurrentDirectory & "\patient.xml")
除此之外,我还想知道如何将每个patient_no.
的详细信息显示在单独的表或datagridview