Lotus notes LotusScript在RichTextItem中创建表

我刚接触Notes和LotusScript，但遇到了一个问题

我需要在一个富文本项中创建一个表，我使用了一个“action partagée”（可能是英语中的“shared action”）。我的代码运行时没有返回错误，但我的表不可见

Sub Click(Source As Button)
    On Error Goto errorhandler

    Dim workspace As New NotesUIWorkspace    
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim uidoc As Notesuidocument
    Dim doc_bdl As NotesDocument    
    Dim table As NotesRichTextItem
    Dim rtnav As NotesRichTextNavigator

    ' création du document
    Set uidoc = workspace.ComposeDocument("","","EXPEDITION")
    Set doc_bdl = uidoc.Document
    Set table = New NotesRichTextItem(doc_bdl,"rtTableau")

    ' création du tableau
    Call table.AppendTable(4, 3)
    Set rtnav = table.CreateNavigator
    Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
    Dim iRow As Integer
    Dim iColumn As Integer
    For iRow = 1 To 4 Step 1
        For iColumn = 1 To 3 Step 1
            Call table.BeginInsert(rtnav)
            Call table.AppendText("Ligne " & iRow & ", Colonne " & iColumn)
            Call table.EndInsert
            Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
        Next
    Next

    Exit Sub

errorHandler:
    Print Lsi_info(2) & " : " & Err & " (" & Error & ") ligne " & Erl 

    Exit Sub
End Sub

我已经读到，要查看富文本项的内容，必须刷新文档。所以我在帮助中使用了示例。 我试图补充这一点：

Call doc_bdl.Save(True, False)
Dim ws As New NotesUIWorkspace
Call ws.ViewRefresh

我没有出错，但我仍然看不到我的桌子

我试过这个：

Call doc_bdl.Save(True, False)
Call doc_bdl.Refresh(True)

我犯了一个错误：“非法使用财产”

有人能帮我吗？先谢谢你

---

注：英语不是我的语言，请原谅我可能犯的错误，我找不到法语论坛寻求帮助。

你需要这样做：

' Save your backend document with the updated RichText field
Call doc_bdl.Save(True, False)
' Open saved backend document as a uidoc
ws.EditDocument(True, doc_bdl) 

如果您想构建一个包含内容的表，但不知道将有多少行（和/或如果您想对表的格式进行更多控制），可以使用以下技术：

---

谢谢。我尝试了您的解决方案，但仍然没有看到我的表，现在我有了打开的默认表单。我会看到你的链接试图理解它。