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

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

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

    makaset Well-Known Member

    Регистрация:
    14 мар 2007
    Сообщения:
    126
    Симпатии:
    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 Гость

    Используйте forall
     
  3. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
Загрузка...
Похожие Темы - выделение нескольких документов
  1. makaset
    Ответов:
    2
    Просмотров:
    1.977
  2. TriXel_01
    Ответов:
    5
    Просмотров:
    98
  3. Brender
    Ответов:
    0
    Просмотров:
    348
  4. planetoxod
    Ответов:
    0
    Просмотров:
    548
  5. duhsi
    Ответов:
    0
    Просмотров:
    1.766
Статус темы:
Закрыта.

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