vb.net增量节点值

时间:2015-03-01 17:19:15

标签: vb.net datagridview

您好我有这个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_nameCard_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

0 个答案:

没有答案