LotusScript - AppendDocLink 不在 RichTextItem 中创建文档链接

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 项目的更改反映在前端以便您可以看到它们，您必须关闭并重新打开文档。