RichTextItemのLotusScript Createテーブル

私はNotesとLotusScriptで新しく問題があります。RichTextItemのLotusScript Createテーブル

私はリッチテキスト項目にテーブルを作成する必要があります。私は "actionpartagé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)

を： "PROPERTYの不正使用を"

を誰かが私を助けることができますか？事前にありがとうございます

PS：英語は私の言語ではありませんので、私の可能なエラーを言い訳してください、私はヘルプのためのフランス語のフォーラムを見つけることができません。あなたがコンテンツを持つテーブルを構築したい、とあなたはそこになりますどのように多くの行を知らない（および/またはあなたがより多くの制御をしたい場合場合

' 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)

：あなたはこのような何かをする必要が

出典

2017-08-29 Elehyan