打印本文 打印本文  关闭窗口 关闭窗口  
在VB中如何新建2级结点
作者:佚名  文章来源:不详  点击数  更新时间:2008/4/18 14:47:21  文章录入:杜斌  责任编辑:杜斌

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  就可以的呀
打印本文 打印本文  关闭窗口 关闭窗口