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

Question

在新数据库中，我无法在富文本项中创建文档链接。我试过使用rtitem。更新，数据库具有默认视图。到目前为止，这些是我能够找到的唯一修复程序，但都没有奏效。

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

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