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

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

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

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

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

выделение нескольких документов

Тема в разделе "Lotus - Программирование", создана пользователем makaset, 2 янв 2011.

Статус темы:
Закрыта.
  1. makaset

    makaset Well-Known Member

    Репутация:
    0
    Регистрация:
    14 мар 2007
    Сообщения:
    128
    Симпатии:
    0
    привет Всем. помогите организовать цикл по выделенным документам. в данном коде если выделить несколько документов он присваевает только 1

    Dim ses As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim coll As NotesDocumentCollection
    Dim cdoc As NotesDocument
    Dim doc As NotesDocument
    Dim db As NotesDatabase
    Dim picklist As Variant

    Set db =ses.CurrentDatabase
    Set doc = ws.CurrentDocument.Document
    Set coll = ws.PickListCollection(3,True,db.Server,db.FilePath,"Zakladka","Выбор...","Выберите процесс")
    Set cdoc = coll.GetFirstDocument
    If Not cdoc Is Nothing Then
    doc.Na=cdoc.Na
    doc.FIO=cdoc.FIO
    doc.Naim=cdoc.Naim
    End If
     
  2. ABarmin

    ABarmin Гость

    Репутация:
    0
    Используйте forall
     
  3. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    8
Загрузка...
Статус темы:
Закрыта.

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