不同文档赋值

[suxiugeng]

在表单A中有个嵌入视图，嵌入视图是选择表单B，两个表单是在同一个数据库的。
表单B总共生成b1、b2、b3、b4、b5、b6、b7七个文档，也就是说嵌入视图里有七个文档，
表单A生成了一个文档a（当然表单A可以生成很多个文档），
打开文档a，进嵌入视图选择b1~b7中的一个文档，若被选择的文档是b2，那么文档b2的某个域的值要赋值到文档a中。
刚才开始我是用：在表单B中加入下面代码：
Dim view As NotesViewSet view = db.GetView( "viewpp" )
Dim doca As NotesDocumentSet doca=view.GetDocumentByKey("分配中")找到文档a后，就可以用
Call doca.ReplaceItemValue("ch",uidoc.fieldgettext("cph"))
Call doca.Save(True,True)
直接赋值的，不过后来我发现问题是：我用Set doca=view.GetDocumentByKey("分配中") 让doca指向文档a出错，因为文档a没有唯一的key，那就是用
Set doca=view.GetDocumentByKey("分配中") 无法找到文档a，也就无法实现了。
谁出来指教指教？

[空空空]

像你这种应用应该是这样操作的:
代码需要写在视图viewpp的Queryopendocument事件里,功能是:在打开数据库文档时,将打开文档的某个值给当前文档(这就需要视图viewpp最好不要在前台查看用),然后马上关闭打开文档! 不过这样需要双击嵌入视图的文档