update xml数据

1. Sub Initialize    
2.  On Error Goto errormsg    
3.  '表单最后保存时执行LotusScript代码    
4.     Dim  sql as string,content as string  
5.    dim doc  as notesdocument    
6.    content = WF_document.content(0)         
7.    sql = |update [bpmoa].[dbo].[BPM_MainData] set XmlData.modify('replace value of (/Items/WFItem[@name="addContent"]/text())[1] with "|+content+|"') where WF_DocUNID='|+WF_document.DocUNID(0)+|'|  
8.    call rdb.connect()    
9.    call WF_Con.Execute(sql,nothing)   
10.      
11.    print |update successful|   
12. Exit Sub    
13. errormsg:    
14. Msgbox "Form WebQuerySave Rule Error:" & Str(Erl) & "  " & Error    
15. End Sub    

*update XML中的  addContent这个属性