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

[Dragon108]

Как проверить, что в документе в поле лежит больше одного значения?

 

[alik86]

@Elements

 

[hosm]

Dim x as variant
Dim doc as NotesDocument
' ....
x=doc.GetItemvalue("Field")
if Ubound(x) > LBound(x) then
' больше одного
end if

 

[nvyush]

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

 

[hosm]

option base 1?

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

 

[nvyush]

option base 1?

А разве это на doc.GetItemvalue("Field") действует? КМК, только на массивы. Надо будет на досуге проверить...

 

[hosm]

А разве это на doc.GetItemvalue("Field") действует?

не помню, честно. Но на массивы без явного указания нижней границы действует =)

 

[nvyush]

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]

значит, это у меня перестраховка была =) спасиб, буду знать =)