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

PavelT100

Well-Known Member
09.07.2007
103
0
#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." Что бы это значило ?
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
#2
Тупое сравнение переменных doc1 показывает, что в одном случае у тебя русская "с", а в другом латинская "c".

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