关闭

在rtf域中创建表格

926人阅读 评论(0) 收藏 举报
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
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:2859次
    • 积分:49
    • 等级:
    • 排名:千里之外
    • 原创:2篇
    • 转载:1篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档