在VB中如何新建2级结点

文章作者 100test 发表时间 2007:03:10 18:21:02
来源 100Test.Com百考试题网

Set oRoot = oDoc.createElement("Root")
Set oDoc.documentElement = oRoot
oRoot.setAttribute "部门编号", "897"
加入子结点
Set oNode = oDoc.createElement("Document")
oNode.Text = "Demo"
oRoot.appendChild oNode

Set oNode = oDoc.createElement("CreateDate")
oRoot.appendChild oNode
oNode.Text = "Demo"


比如要在子结点下再增加一级结点如何加
---------------------------------------------------------------

Set oNodeChild = oDoc.createElement("Document")
oNodeChild.Text = "Demo"
oNode.appendChild oNodeChild

---------------------------------------------------------------

createElement("")
appendChild 就可以的呀