RTF域为何这么麻烦？

[rugl]

我在一个代理里拷贝一个RTF域的内容到另一个文档的RTF域，用的是AppendRTItem函数，把被拷贝的RTF域设为可编辑域时，在判断它是否为RTF域时，总是提示你“Object Variable not set”,可一把它设成计算时，就好了。最奇怪的是，我在另一个数据库里，在可编辑的情况下用同样的方法拷贝，一点问题也没有。

还有一个问题是关于RTF域值的继承，我把附件从一份文档继承到一份新的文档时，查看附件就提示你“未找到注释项目”，什么也看不了。是不是RTF域的内容不能继承？

希望各位大侠指点。

[netnest]

rugl (rugl) :
你拷贝RTF到另一个RTF的代理能给我看看嘛？

[rugl]

to netnest(小猪) ,下面是一个函数，按说明调用就可以了。

Sub DocCopyRTF(doc As NotesDocument,doc1 As NotesDocument,FieldName As String,FieldName1 As String)
'归档-------对RTF域的赋值
'doc为源文档，doc1为准备建立的要归档的文档
'FieldName为源文档doc中的一个RTF域，FieldName1为doc1文档中的一个RTF域
Dim rtitem1 As notesrichtextitem
Dim rtitem As Variant

Set rtitem = doc.GetFirstItem(fieldname)

If rtitem.Type = RICHTEXT Then
Set rtitem1 = New notesrichtextitem(doc1,fieldname1)
Call rtitem1.AppendRTItem(rtitem)
End If
End Sub

[rugl]

第一个问题已经解决，但第二个问题希望哪位帮我解释一下。

[kingwgh]

RTF域保存以后才存在