Сделать множественный выбор

[K85]

Есть кнопка по выбору адресной книги

Код: [Выделить]

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

Код: [Выделить]

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
If Len(doc.TitleNames (0))=0 Then
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)
Else
mDB = ws.Prompt( 13, "Выбор", "Укажите" )
doc.TitleNames = Arrayappend( doc.TitleNames, mDB(2))
Set PABdb = New NotesDatabase(mDB(0),mDB(1))
doc.ReplicaIDnames=Arrayunique(PABdb.ReplicaID)

End IfНо в строку doc.ReplicaIDnames=Arrayunique(PABdb.ReplicaID) ничего не добавляется

[ViV]

PABdb.ReplicaID - это строка. Зачем над ней делать Arrayunique?

[K85]

а как сделать, чтобы в поле добавлялись значения?

[K85]

в строке PABdb.ReplicaID постоянно новое значение, а не несколько значений

[ViV]

можно воспользоваться тем же Arrayappend

[K85]

не могу понять что надо ставить в doc.ReplicaIDnames=Arrayappend(PABdb.ReplicaID, ??)

[ViV]

смотря что вам нужно можно посмотреть на две строки раньше, возможно наведет на мысль

[K85]

ой, бывает! наоборот написано было, вот и не срабатывало. Спасибо

[K85]

теперь возникла следующая проблема:
есть кнопка на форме, по нажатию на которую открывается список адр.книг, при выборе одной из них открывается перечень ФИО
код кнопки:

Код: [Выделить]

view := "AlternateName";
title := "Справочник" ;
prompt := "Выберите ФИО ";
mServer:=@Subset(@DbName;1);

mSerDB:=@Prompt( [OkCancelList] ;"Cписк справочников";"Укажите справочник";"";"1":"2":"3");
@If( mSerDB="1";mDbName:="names.nsf";mSerDB="2";mDbName:="names_ru.nsf"; mSerDB="3";mDbName:="names_uds.nsf";@Failure(""));

mField1:="Username";
mField2:="ControlUsername";
@If(@ServerName = @UserName;@Failure("необходимо подключение к серверу");@Success);
mAltUser := @PickList ([Custom];mServer:mDbName ; view; title; prompt; 1 );
REM{"mAltUser := @PickList ([Custom]; mServer:mDbName ; view; title; prompt; 1 )"};
REM{"mUser:= @DbLookup ("":"NoCache"; mServer:mDbName; view; mAltUser; 6)"};
mUser:= @DbLookup ("":"NoCache"; mServer:mDbName; view; mAltUser; 6);

@SetField(mField1;mAltUser);
@SetField(mField2;@Name([Canonicalize];mUser));
@Command([ViewRefreshFields] )Но при выборе "3", т.е. новой адр.книги выдает ошибку "Server Error: File does not exist"
От чего может быть эта ошибка?

[K85]

может проблема в том, что база находится на сервере1, а адр.книга3 на сервере2, причем две другие адр. книги находящиеся в перечне находятся на одном сервере с базой.
Если проблема в этом, то как можно указать при выборе адр.книги3, что она с другого сервера?

[K85]

да, проблема именно в расположении базы. А как ее можно указать вместе с сервером?