1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Rt To Rt

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

  1. root

    root Гость

    Репутация:
    0
    Привет. Что то никак неполучается скопировать содиржимое одно 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)
    .....что то неполучается?
     
  2. Medevic

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

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

    root Гость

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

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

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

    sam58 Гость

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

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