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