pbdom 如何生成多条记录？

[尼古拉847]

PBDOM_ELEMENT pbdom_root
PBDOM_ELEMENT pbdom_elem_2
PBDOM_ELEMENT pbdom_elem_3
PBDOM_ELEMENT pbdom_elem_4
PBDOM_DOCUMENT pbdom_xml
pbdom_attribute pbdom_attr1
PBDOM_BUILDER pbdom_bldr
pbdom_bldr = Create PBDOM_Builder 
string ls_xml
boolean l_ret

pbdom_xml = Create PBDOM_DOCUMENT
pbdom_root = Create PBDOM_ELEMENT
pbdom_elem_2 = Create PBDOM_ELEMENT
pbdom_elem_3 = Create PBDOM_ELEMENT
pbdom_elem_4 = Create PBDOM_ELEMENT
pbdom_bldr = Create PBDOM_Builder 

// 创建文档

pbdom_root.SetName("data")

pbdom_elem_2.SetName("plu")
pbdom_elem_2.SetText( "12014" )

pbdom_elem_3.SetName("AlternativeItemIDs")

pbdom_elem_4.SetName("AlternativeItemID")
pbdom_elem_4.SetText( "部门" )

pbdom_elem_3.AddContent(pbdom_elem_4)

pbdom_root.AddContent(pbdom_elem_2)
pbdom_root.AddContent(pbdom_elem_3)

pbdom_xml.NewDocument ("", "http://www.pre.com", "version", "1.0", "utf-8")

pbdom_xml.GetRootElement().Detach()
pbdom_xml.AddContent(pbdom_root)
l_ret = pbdom_xml.SaveDocument('aa.xml')

 

这样生成一条记录可以，怎么生成多长记录？