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

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

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

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

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

Множественный выбор

Тема в разделе "Lotus - Программирование", создана пользователем oleg7, 30 сен 2009.

  1. oleg7

    oleg7 Гость

    Репутация:
    0
    Есть кнопка по выбору адресной книги
    Код:
    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace	
    Dim db As NotesDatabase
    Dim mDB As Variant
    Set db = session.CurrentDatabase	
    Dim doc As NotesDocument
    Set uiDoc = ws.CurrentDocument
    Set doc = uiDoc.Document
    
    mDB = ws.Prompt( 13, "Выбор ", "Укажите" )
    doc.TitleNames = mDB(2)
    Set PABdb = New NotesDatabase(mDB(0),mDB(1))
    doc.ReplicaIDnames	= PABdb.ReplicaID
    doc.ReplicaIDnames_1	= Left(PABdb.ReplicaID,8) & ":" & Right(PABdb.ReplicaID,8)
    А как теперь тоже самое выбирать, но при условии, что если уже выбрана одна книга, то можно было добавить еще одну адр.книгу?
     
  2. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    1. Item.AppendToTextList
    2. Вычитка существующих значений в array, его пополнение и запись обратно
    ещё что-то

    Надо проверку добавить:
    Код:
    mDB = ws.Prompt( 13, "Выбор ", "Укажите" )
    if Not isempty(mDB) then...
    Вдруг юзер нажмёт Cancel :(
     
Загрузка...

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