有TESTA 表单和TESTB表单，
1：定义一个按钮
2：在TESTA中建立两个域，一个AA,文本域，另外一个为FILELINK 是RTF域
3：在TESTB中建立一个BB域
4：运行TESTA窗体中的按钮，用对话框显示出TESTB窗体，在TESTB窗体中
填写完毕后按确定返回TESTA窗体，代码如下：
Sub Click(Source As Button)
Dim rt As NotesRichTextItem
Dim Session As NotesSession
Dim db As NotesDatabase
Dim UIWK As NotesUIWorkspace
Dim UIdoc As NotesUIDocument
Dim doc As NotesDocument, docDialog As NotesDocument
Set Session = New NotesSession
Set UIWK = New NotesUIWorkspace
Set db = Session.CurrentDatabase
Set UIdoc = UIWK.CurrentDocument
Set doc = UIdoc.Document
Set docDialog = db.CreateDocument()
docDialog.BB = doc.AA(0)
' 开启另一个套表
If UIWK.DialogBox("TESTB", True, True, False, False, False, False, "TEST B", docDialog, True, False, False) Then
docDialog.Form = "TESTB"
‘想法是在 TESTA 窗体中的FILELINK的RTF域中添加
‘我刚才填写的B窗体的文文件链接,但是运行后A窗体中FILELINK域没有任何反应？
Set rt=New NotesRichTextItem(doc,"filelink")
Call rt.AppendDocLink(docDialog,"")
Call DOC.Save(True,False)
Call docDialog.Save(True, False)
End If
End Sub
------解决方案--------------------
Set rt=New NotesRichTextItem(doc,"filelink")
Call rt.AppendDocLink(docDialog,"")
Call DOC.Save(True,False)
Call docDialog.Save(True, False)
call uidoc.fieldsettext("saveoptions","0")
call uidoc.save
call uidoc.close
call uiworkspace.editdocument(false, doc)