LotusScript在RichTextItem中創建表

我是Notes和LotusScript的新手，遇到問題。LotusScript在RichTextItem中創建表

我需要在富文本項目中創建表格，我已經使用了「actionpartagée」（也許是「英語共享動作」）。我的代碼運行時沒有返回錯誤，但我的表不可見。

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)

我得到這個錯誤：「非法使用屬性的」

有人能幫助我嗎？先謝謝

PS：英語不是我的語言，所以請原諒我可能的錯誤，我沒有找到法語論壇的幫助。

來源

2017-08-29 Elehyan

你需要做這樣的事情：

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

如果你想建立一個內容表，而你不知道有多少行會（和/或如果你想要更多的控制您可以使用此技術：

http://blog.texasswede.com/dynamic-tables-in-classic-notes/

來源

2017-08-29 16:11:47

謝謝。我嘗試你的解決方案，但我仍然沒有看到我的表，現在我已打開默認窗體。我會看到你的鏈接試圖理解它。 – Elehyan

LotusScript在RichTextItem中創建表

回答

相關問題