 如何在一节点下添加多个同名节点呀？
这是xml的结构，我想在detailed节点下添加下面多个同名attr的节点，并在每个attr节点下添加它的attrlabl和attrdef子结点. - <detailed> - <attr> <attrlabl>ST_CD</attrlabl> <attrdef>Street Code</attrdef> </attr> - <attr> <attrlabl>ST_NAMEE</attrlabl> <attrdef>Street English Name</attrdef> </attr> - <attr> <attrlabl>ST_NAMEC</attrlabl> <attrdef>Street Chinese Name</attrdef> </attr> </detailed> 如果把attr三个节点删除，我现在可以成功添加一次attr节点用下面的代码：
Dim oRoot As IXMLDOMElement
Set oRoot = xml_document.selectSingleNode("detailed")
Dim oattr As IXMLDOMElement
Set oattr = xml_document.CreateElement("attr")
oRoot.appendChild oattr
Set oRoot = xml_document.selectSingleNode("detailed/attr")
Set oAttrlabl = xml_document.CreateElement("attrlabl")
Set oAttrdef = xml_document.CreateElement("attrdef")
oAttrlabl.Text = "ww"
oAttrdef.Text = "qq"
oRoot.appendChild oAttrlabl
oRoot.appendChild oAttrdef
执行完可以添加第一个attr节点，但是再添加一个相同的似乎不能重复执行上面的代码，请问要怎么再重复添加同名的attr节点呢？
|
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 DOM/SAX/XPath 』 → 如何在一节点下添加多个同名节点呀？
(订阅本版)
2008/9/10 9:52:00
顶端 
新浪微博
