问题描述
SubClick(SourceAsButton)DimsessionAsNewNotesSessionDimwsAsNewNotesUIWorkspaceDimuidocAsNotesUIDocumentDimdbAsNotesDatabaseDimviewAsNotesViewDimdcAsNotesDocumentCollectionDimdocAsNotesDocumentSetuidoc=ws.CurrentDocumentSetdoc=uidoc.Document--得到当前文档Setdb=session.CurrentDatabaseSetview=db.GetView("PillarInformationforMSEmbeded")--得到那个视图Setdc=view.GetAllDocumentsByKey(doc.ContractNo(0))根据CountractNo去找Setdoc=dc.GetFirstDocument--得到第一个文档(里面有很多字段)。。接下来我该怎么去读里面的字段值,把他放到对应的别的表单里面
解决方案
解决方案二:
Setdoc=uidoc.Document--得到当前文档Setdoc=dc.GetFirstDocument--得到第一个文档(里面有很多字段)先搞清楚逻辑再问问题吧,如果doc是当前文档,吧doc_tmp作为第一个文档赋值doc.test=doc_tmp.testdoc.test1=doc_tmp.test1仅此而已,如果是其他的需求,有问才有答.
解决方案三:
SubClick(SourceAsButton)DimsessionAsNewNotesSessionDimwsAsNewNotesUIWorkspaceDimuidocAsNotesUIDocumentDimdbAsNotesDatabaseDimviewAsNotesViewDimdcAsNotesDocumentCollectionDimdocAsNotesDocumentdimtmpdocasNotesDocumentSetuidoc=ws.CurrentDocumentSetdoc=uidoc.Document--得到当前文档Setdb=session.CurrentDatabaseSetview=db.GetView("PillarInformationforMSEmbeded")--得到那个视图Setdc=view.GetAllDocumentsByKey(doc.ContractNo(0))根据CountractNo去找Setdoc=dc.GetFirstDocument--得到第一个文档(里面有很多字段)WhileNotdocIsNothingsettmpdoc=db.CreateDocument()'创建一份文档tmpdoc.Form="fmTest"'指定表单名tmpdoc.Test1=doc.txTest1(0)'对文档中域进行赋值calltmpdoc.Save(true,false)'保存文档setdoc=dc.GetNextDocument(doc)Wend'=================================================================呵呵,希望对你有帮助