Глюк при обращении к документу

@PovytT100 · Регистрация: 05.07.2007

Навта функцию.

Код

Function GetVersions(doс1 As NotesDocument) As String
Dim sV As String
sV = ""
If doc1.HasItem("Ver") Then
If Isarray(doc1.Ver) Then
For k%=Lbound(doc1.Ver) To Ubound(doc1.Ver)
sV = sV & doc1.Ver(k%)
If k%<Ubound(doc1.Ver) Then sV = sV & ", "
Next
End If
End If
GetVersions = sV
End Function

При вызове смотрю в отладчике doc1- все нормально, прекрасый документ. Но при обращении к HasItem возникает сбой "Variant does not contain an object." Что бы это значило ?

@Mydyvys · 13.11.2008, 14:21

Тупое сравнение переменных doc1 показывает, что в одном случае у тебя русская "с", а в другом латинская "c".

Используй Option Declare. :unsure:

@PovytT100 0 / 0 / 0 Регистрация: 05.07.2007 Сообщений: 102
		1
	Глюк при обращении к документу 13.11.2008, 14:14. Показов 6599. Ответов 1 Метки нет (Все метки) Навта функцию. Код Function GetVersions(doс1 As NotesDocument) As String Dim sV As String sV = "" If doc1.HasItem("Ver") Then If Isarray(doc1.Ver) Then For k%=Lbound(doc1.Ver) To Ubound(doc1.Ver) sV = sV & doc1.Ver(k%) If k%<Ubound(doc1.Ver) Then sV = sV & ", " Next End If End If GetVersions = sV End Function При вызове смотрю в отладчике doc1- все нормально, прекрасый документ. Но при обращении к HasItem возникает сбой "Variant does not contain an object." Что бы это значило ? 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	13.11.2008, 14:21	2
	Тупое сравнение переменных doc1 показывает, что в одном случае у тебя русская "с", а в другом латинская "c". Используй Option Declare. :unsure: 0

Опции темы