问题描述
遇到的问题如题所示，需求如下。1.有一本docuoment，业务上已经不能编辑，所以整个document的编辑不能用。2.其中有一个field，客户想要就需求1的不能编辑的document而言，可以调出一个子画面，在子画面里仅有这一个field，并且可以编辑（达到其他field不可编辑的效果）。3.我试图用@Dialogbox调用了某个仅含需求2field的Form，并且可以编辑。但如果field是text的话，可以实现。field是richtext的话，则无法在@Dialogbox时进行文本的样式编辑及拖动添加附件等操作，故而无法达到客户需求。求高手给出解决方案。
解决方案
解决方案二：
【修改按钮】：SubClick(SourceAsButton)DimwsAsNewNotesUIWorkspaceDimsessionAsNewNotesSessionDimdbAsNotesDatabaseDimdocAsNotesDocumentDimstrUNIDAsStringSetdb=session.CurrentDatabaseSetdoc=ws.CurrentDocument.DocumentstrUNID=doc.UniversalIDSetdoc=db.GetDocumentByUNID(strUNID)Ifws.DialogBox("subDlgEdit",True,True,True,False,False,False,"",doc,True,True)ThenCalldoc.Save(True,False)Callws.CurrentDocument.Document.replaceItemValue("SaveOptions","0")Callws.CurrentDocument.Close()Setdoc=db.GetDocumentByUNID(strUNID)Callws.EditDocument(True,doc)EndIfEndSub定制对话框OK/Cancel按钮：【OK】：SubClick(SourceAsButton)DimwsAsNewNotesUIWorkspaceCallws.CurrentDocument.Document.ReplaceItemValue("Form","你的被修改文档的Form")Callws.CurrentDocument.Save()Callws.CurrentDocument.Close()Callws.RefreshParentNote()EndSub【Cancel】：SubClick(SourceAsButton)DimwsAsNewNotesUIWorkspaceCallws.CurrentDocument.Close()EndSub
解决方案三：
另注意，对话框里的RTF字段名和文档本来的必须相同，但字段类型最好是选“RichTextLite”,方便用户在对话框里选附件。