Rt To Rt

[root]

Привет. Что то никак неполучается скопировать содиржимое одно RT поля документа в RT другого документа а именно,
Есть Документ doc1
Есть Кнопка But1

Нужно отобразить RichTextFiled одного докумета в Другом

Dim doc As NotesDocument 
Dim ws As New NotesUIWorkspace 
Dim db As NotesDatabase 
Set db = ws.CurrentDatabase.Database 
Set doc = db.CreateDocument
Dim rTmpUiDocRich As NotesRichTextItem 
Dim tmpRich As NotesRichTextItem 
Set rTmpuiDocRich= ws.CurrentDocument.Document.GetFirstItem("rComments") 
Set tmpRich = doc.GetFirstItem("tmpComments") 
Call rTmpuiDocRich.AppendRTItem(tmpRich) 
Call doc.save(true,true)
Call ws.DialogBox("fComments",True,True,True,False,False,False,"Добавить комментарии", doc)

.....что то неполучается?

 

[Medevic]

Работа с ричтекстом происходит в бакэнд документе. Следовательно, до переоткрытия фронтэнд документа ты ничего не увидишь.

 

[root]

Для: Medevic
Тоесть мне его надо закрыть и заново открыть ?

 

[Medevic]

Точнее сохранить бакэнд документ(Call ws.CurrentDocument.Document.Save(True, True)) . Потом закрыть и открыть заново.

 

[sam58]

в доке про notesuidocument.refresh написано про параметр true . попробуйте, может поможет, перед получением бэкэндов обновить uidocument таким образом