实现两个数据库间的数据追加

REM 本程序可以放在数据库A的表单TEST1中的操作或postsave保存事件中
dim uiw as new notesuiworkspace
dim uidoc as notesdocument
set uidoc = uiw.currentdocument
dim doc as notesdocument
set doc = uidoc.document   '获得当前文档

dim ss as new notessession
dim db as notesdatabase
set db = ss.getdatabase("服务器名称","数据库B") '获得数据库B

REM 在数据库中创建文档，将在数据库A中创建的文档追加到数据库B中
dim newdoc as notesdocument
set newdoc = db.createdocument
newdoc.form = "TEST2"
newdoc.aaaa = doc.aaaa(0)
newdoc.bbbb = doc.bbbb(0)
REM 如果有的域是多值域需要
newdoc.cccc = doc.cccc

call newdoc.save(true,true)

REM 程序结束