这段代码有什么错误？

vicky_1

Set notes = SourceDoc.document
Set doc = New notesdocument(db)
Set rtf2 = New NotesRichTextItem(doc, "Body")
Set rtf1 = notes.getfirstitem("body")
doc.form = "document"
doc.subject = notes.subject(0)
doc.dept = notes.dept(0)
Call rtf2.appendrtitem(rtf1)
Set currentdoc = wk.editdocument(True,doc,False)
SourceDoc是当前打开的文档A。
这是一个操作的代码，点击以后，新建一个文档B，B
文档取A文档中部分域的内容。
报或A中的一个RTF域body，拷贝到B中的RTF域body。
这段代码执行的时候，新建的文档B中的dept、subject等非RTF域都可以取到A中的值，但body域取不到。
而当我单步调试执行的时候，却都可以取到相应的值。
为什么？

vicky_1

没有人知道吗？

WangAlice

我也想知道！我做的类似于这个的没有传递RTF的值。

Notes123

Set notes = SourceDoc.document
Set doc = New notesdocument(db)
doc.form = "document"
doc.subject = notes.subject(0)
doc.dept = notes.dept(0)

Set rtf1 = notes.getfirstitem("body")
               
Call rtf1.CopyItemToDocument( Doc, "Body" )

修改一下程序使用CopyItemToDocument可以安全复制RTF域内容。目前我在使用完全正常。