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 程序结束
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 程序结束