那么楼主的意思是不是把开课申请文档中的部分信息加入到新生成的课程信息文档中?不知道楼主的domino应用是B/s的还是C/S的,如果是B/S或者后台运行代理,那么注意所有的UI类都不能用(例如NotesUIDocument和NotesUIWorkspace什么的),因为这些是前台类。那么揣测楼主是要在webquerysave代理中使用?如下:Dim session As New NotesSessionDim curDb As NotesDatabaseDim curDoc As NotesDocumentDim newDoc As NotesDocument'假设是在同一个数据库中,都是当前数据库Set curDb = session.CurrentDatabase'当前文档就是申请文档啦Set curDoc = session.DocumentContext'创建课程信息文档Set newDoc = curDb.CreateDocumentnewDoc.form="表单名"newDoc.字段名=curDoc.字段名(0) '依次赋值就好了........call newDoc.save(true,false) '保存新建的课程信息文档curDoc.status="批注通过" '保存审批信息........