在rtf域中创建表格

Set XGitem = doc.GetFirstitem("XGJL")
    If XGitem Is Nothing Then
        Set XGitem = New NotesRichTextItem( doc, "XGJL")
    End If
   
    '创建表格标题
    Call XGitem.AppendTable(3, 3)       
    Dim rtnav As NotesRichTextNavigator
    Set rtnav = XGitem.CreateNavigator
    Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
    Call XGitem.BeginInsert(rtnav)
    Call XGitem.AppendText("修改字段名")
    Call XGitem.EndInsert
    Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
    Call XGitem.BeginInsert(rtnav)
    Call XGitem.AppendText("修改前内容")
    Call XGitem.EndInsert
    Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
    Call XGitem.BeginInsert(rtnav)
    Call XGitem.AppendText("修改后内容")
    Call XGitem.EndInsert

      ‘加数据
        
         Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
        Call XGitem.BeginInsert(rtnav)
        Call XGitem.AppendText("审批事项/标题名内容：")
        Call XGitem.EndInsert
        Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
        Call XGitem.BeginInsert(rtnav)
        Call XGitem.AppendText(itembtold.Text)
        Call XGitem.EndInsert
        Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
        Call XGitem.BeginInsert(rtnav)
        Call XGitem.AppendText(itembt.Text)
        Call XGitem.EndInsert