Rt To Rt

Тема в разделе "Lotus - Программирование", создана пользователем root, 6 июл 2007.

  1. root

    root Гость

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

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

    Код (Text):
    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)
    .....что то неполучается?
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Работа с ричтекстом происходит в бакэнд документе. Следовательно, до переоткрытия фронтэнд документа ты ничего не увидишь.
     
  3. root

    root Гость

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

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Точнее сохранить бакэнд документ(Call ws.CurrentDocument.Document.Save(True, True)) . Потом закрыть и открыть заново.
     
  5. sam58

    sam58 Гость

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

Поделиться этой страницей