关于RTF域操作的问题，高分相送，在线等待！

[xiong_r]

我在进行Notes开发时，对rtf域操作后，域的内容却没有立即显示，各位高手，帮帮忙！
（这段代码不是通过代理执行）部分代码如下：itemC条目的内容即是我想要显示的RTF域的内容
Set itemB=doc.getfirstitem("NotionBak1")
Set itemC=doc.getfirstitem(doc.NotionName(0))
If itemC.text="" Then
Set itemC=New NotesRichTextItem(doc,doc.NotionName(0))
End If
If itemB.Text<>"" Then
Call itemC.AppendRTItem(itemB)
Call itemC.Addnewline(1)
End If
Call itemC.AppendText(追加的文字)
If (itemA.Type=Richtext) Then
Call itemC.AppendRTitem(itemA) '追加一个RTF条目的内容包含图片2K左右
End If
Call doc.save(False,True)
Call uidoc.Reload

[rosemerry]

Dim WS As New NotesUIWorkspace
Call WS.Reloadwindow()
试试看这个，将Call uidoc.Reload改成上面的程序！

[xiong_r]

还是不行

[1234qwer]

这段代理在那里执行的?

[rosemerry]

是不是C/S?

[雷布斯尼亚]

注意:你的表单里定义了相应的域才能显示

[xiong_r]

这段代码是在填写意见内容时,对同一意见域可能进行追加内容.然上面的itemC所对应的意见域肯定是存在的.
是c/s结构

[rosemerry]

你一步一步调试，看一下itemC中是否有值，是一开始就没值还是怎么回事！

[chxtcs]

Dim uidoc As notesuidocument
Set uidoc = uiw.currentdocument
Dim doc As notesdocument
Set doc = uidoc.document

Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem("Body")
Call rtitem.AppendText("aaaaaa")
Call doc.Save( False, True )
Dim docnew As notesdocument
Set docnew = doc
' Dim uiw As New notesuiworkspace
Call uidoc.close()
Call uiw.EditDocument(False,docnew)