Rt To Rt

  • Автор темы root
  • Дата начала
R

root

#1
Привет. Что то никак неполучается скопировать содиржимое одно 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

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
Работа с ричтекстом происходит в бакэнд документе. Следовательно, до переоткрытия фронтэнд документа ты ничего не увидишь.
 
R

root

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#4
Точнее сохранить бакэнд документ(Call ws.CurrentDocument.Document.Save(True, True)) . Потом закрыть и открыть заново.
 
S

sam58

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