Pickliststrings выдает непонятную ошибку

  • Автор темы ABarmin
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

ABarmin

#1
Простой код, на 90% скопированный из справки

Код:
		Dim workspace As New NotesUIWorkspace
Dim picklist As Variant
Dim messagelist As String
picklist = workspace.PickListStrings( PICKLIST_CUSTOM, True, workspace.CurrentDatabase.Database.Server, workspace.CurrentDatabase.Database.FileName, "Сотрудники по NN", "Выбор", "Выберите сотрудника", 1)
По отладчику на последней строке выпадает ошибка Object Variable not set. Какую еще переменную ему надо?
 

Cleric-Lviv

Lotus team
03.01.2008
600
0
#3
hosmtest хотел написать что вам нужно добавить следующие строки

dim ses as new notessession
dim db as notesdatabase

set db = ses.curentdatabase

и как результат ви можете заменить следующее workspace.CurrentDatabase.Database.Server и workspace.CurrentDatabase.Database.FileName --- а вот как посмотрите в хелпе:please: наводка дана
 

hosm

* so what *
18.05.2009
2 442
6
#4
Cleric-Lviv да тут уже не наводка, тут уже просто расжевал =) как хорошо, что у меня есть такие толкователи =)
вообще топикстартеру стоит посмотреть в хелпе особенности использования Notesuiworkspace.CurrentDatabase, чтоб понять, почему ее не надо юзать в большинстве случаев...
 

hosm

* so what *
18.05.2009
2 442
6
#5
Еще FileName стоит заменить на FilePath. Почитайте разницу между ними, в вашем варианте это может быть и одинаково, но в общем случае никто не запрещает создавать для базы отдельный подкаталог в каталоге данных сервера.
 
Статус
Закрыто для дальнейших ответов.