Проверить, что в поле лежит много значений

Dragon108

Well-known member
19.01.2010
265
0
#1
Как проверить, что в документе в поле лежит больше одного значения?
 

hosm

* so what *
18.05.2009
2 442
6
#3
Код:
Dim x as variant
Dim doc as NotesDocument
' ....
x=doc.GetItemvalue("Field")
if Ubound(x) > LBound(x) then
' больше одного
end if
 

nvyush

Lotus team
22.04.2009
2 317
0
#4
OKEN
А бывает такое, что LBound(doc.GetItemvalue("Field")) <> 0? Я что-то не встречал. Всегда проверяю только верхнюю границу.
 

hosm

* so what *
18.05.2009
2 442
6
#5
option base 1?

Добавлено: не факт, но такую конструкцию приходилось давно как-то встречать =)
 

nvyush

Lotus team
22.04.2009
2 317
0
#8
Код:
Option Declare
Option Base 1

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim var1 As Variant
Redim var2(2) As String
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
doc.Field = Split("a:b:c", ":")
var1 = doc.Field
Msgbox "Lbound(var1) = " & Cstr(Lbound(var1)) & " Ubound(var1) = " & Cstr(Ubound(var1)) & {
} & "Lbound(var2) = " & Cstr(Lbound(var2)) & " Ubound(var2) = " & Cstr(Ubound(var2))
End Sub
Результат выполнения:
Lbound(var1) = 0 Ubound(var1) = 2
Lbound(var2) = 1 Ubound(var2) = 2
 

hosm

* so what *
18.05.2009
2 442
6
#9
значит, это у меня перестраховка была =) спасиб, буду знать =)