LotusScript-AppendDocLink不在RichTextItem中创建doclink

Question

在新数据库中，我无法在RichTextItem中创建DocLink。我尝试使用rtitem.Update，并且数据库具有默认视图。到目前为止，这些是我只能找到的唯一修复程序，但是都没有奏效。

反复失败后，我在操作按钮中创建了一些测试代码：

Sub Click(Source As Button)

 Dim s As New NotesSession
 Dim ws As New NotesUIWorkspace
 Dim db As NotesDatabase
 Dim uidoc As NotesUIDocument
 Dim doc As NotesDocument
 Dim newdoc As NotesDocument
 Dim rtitem As NotesRichTextItem

 Set db = s.CurrentDatabase
 Set uidoc = ws.CurrentDocument
 Set doc = uidoc.Document
 Set newdoc = New NotesDocument(db)
 Call newdoc.Save(True, False)

 Set rtitem = New NotesRichTextItem(doc, "CommentAndRecord")
 Call rtitem.AppendDocLink(newdoc, "Test document")
 Call rtitem.Update
 Call uidoc.Refresh

End Sub

此代码运行无错误，并创建了RichTextItem，但未将DocLink添加到RichTextItem。我尝试用AppendText替换AppendDocLink并遇到相同的问题。项目已创建，但不能分配任何值。

Answer 1

NotesUIDocucment.Refresh方法具有一个可选的布尔参数，默认为false。将其设置为true会使用对后端NotesRichTextItems所做的更改来更新前端富文本字段。

所以尝试

Call uidoc.Refresh(true)

编辑：哦，等等...刷新调用的方向相反-从前端可编辑RT字段更新后端RT项目。为了获得对RT项目的后端更改以反映在前端，以便您可以看到它们，您必须关闭并重新打开文档。