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

  • Автор темы oleg7
  • Дата начала
O

oleg7

Гость
#1
Есть кнопка по выбору адресной книги
Код:
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)
А как теперь тоже самое выбирать, но при условии, что если уже выбрана одна книга, то можно было добавить еще одну адр.книгу?
 

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
#2
1. Item.AppendToTextList
2. Вычитка существующих значений в array, его пополнение и запись обратно
ещё что-то

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