请问两个数据库之间如何进行数据追加?
不愿留名
2003/03/11

    问题： 例如：
    > 数据库A中有 BM,DWMC,BMMC等域,表单名TEST1
    > 数据库B中也有 BM,DWMC,BMMC等域,但有部分域数据库A中没有,表单名TEST2
    > 在数据库A中录入文档,进行一个操作同时完成两个事件(1.数据库A保存文档 2.向数据库B中追加
    > 一条纪录)
    答复：
    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 程序结束