Как такое может быть?!

fedotxxl

Well-Known Member
09.11.2005
614
0
#1
Прошу прощения за название темы, но подругому никак... Вот такой простой код
Код:
Dim ns As New NotesSession
Dim db As NotesDatabase

Dim ndTemp As NotesDocument
Dim nv As NotesView

Set db = ns.CurrentDatabase 
Set ndTemp = db.CreateDocument

Call ndTemp.Save(True, True)

Set nv = db.GetView("(UNID)")
Call nv.Refresh
nv.AutoUpdate = False

Set ndTemp = nv.GetDocumentByKey(ndTemp.UniversalD, True)
Вид отбирает все документы, первый столбец сортирован, код столбца @Text(@DocumentUniqueID). Метод nv.GetDocumentByKey(ndTemp.UniversalD, True) возвращает nothing... ПОЧЕМУ?!
 

fedotxxl

Well-Known Member
09.11.2005
614
0
#3
D!m@n
Галка не стоит
Во-вторых в хелпе написано - If the force parameter is True, the createResponse parameter has no effect.
 
A

allex

Гость
#4
Такая же проблема, дебагеом смотрю

Dim col As NotesDocumentCollection
Set view = db.GetView( "view" )
Set col = view.GetAllDocumentsByKey(name_field_curdoc, True)
name_field_curdoc - string величина, и она определена
во view первый столбец показывает значения, с данным ключем во view есть 3 док-та

Но коллекция пустая

????
 
D

D!m@n

Гость
#5
D!m@n
Галка не стоит
Во-вторых в хелпе написано - If the force parameter is True, the createResponse parameter has no effect.
Хм, да... Встречный вопрос - зачем тогда второй аргумент в True выставили? :ph34r:
Кстати, а Вы вручную не проверяли - создаваемые документы во вьюхе есть?
 
K

K-Fire

Гость
#6
Прошу прощения за название темы, но подругому никак... Вот такой простой код
Код:
Dim ns As New NotesSession
Dim db As NotesDatabase

Dim ndTemp As NotesDocument
Dim nv As NotesView

Set db = ns.CurrentDatabase 
Set ndTemp = db.CreateDocument

Call ndTemp.Save(True, True)

Set nv = db.GetView("(UNID)")
Call nv.Refresh
nv.AutoUpdate = False

Set ndTemp = nv.GetDocumentByKey(ndTemp.UniversalD, True)
Вид отбирает все документы, первый столбец сортирован, код столбца @Text(@DocumentUniqueID). Метод nv.GetDocumentByKey(ndTemp.UniversalD, True) возвращает nothing... ПОЧЕМУ?!
Попробуйте немного модифицировать код, а именно после Call ndTemp.Save(True, True):
Dim unid as String
unid = ndTemp.UniversalID
Set ndTemp = Nothing

и в конце уже Set ndTemp = nv.GetDocumentByKey(unid)

Кстати, еще вариант попробуйте nv.GetDocumentByKey(ndTemp.UniversalD, True) заменить на nv.GetDocumentByKey(ndTemp.UniversalD)
 

fedotxxl

Well-Known Member
09.11.2005
614
0
#7
D!m@n
Что-то туда вставить нужно было

K-Fire
Если nv.GetDocumentByKey(ndTemp.UniversalD), то находился вообще какой-то бредовый документ

Вобщем взял из другой базы данных такое же по смыслу представление и проблема решилась...