Notesdocument.getitemvalue("fieldname")

[dimat]

Редактируемое поле FieldName - DialogList с опцией Allow Multiple Values, в нем отмечены несколько значений.
На LS пытаюсь взять все значения, но берется только первое. как взять все?

 

[nvyush]

Редактируемое поле FieldName - DialogList с опцией Allow Multiple Values, в нем отмечены несколько значений.
На LS пытаюсь взять все значения, но берется только первое. как взять все?

Прежде чем задавать такие вопросы, почитайте в справке про NotesDocument, NotesItem и их свойства/методы.

 

[xKlonx]

dimat
Проверил,у меня есть поле "multiply" с опцией Allow Multiple Values

Dim w As New NotesUIWorkspace	 
Dim uidoc As NotesUIDocument		
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim mult As Variant	


Set db = session.CurrentDatabase
Set uidoc = w.CurrentDocument	
Set doc = uidoc.Document

mult =doc.GetItemValue("multiply")

переменная mult берет все значения

 

[dimat]

Прошу прощенья , действительно по хелпу разобрался.
Сделал вот так:

dim rt as notesItem
Set rt= doc.GetFirstItem("FieldName")
print rt.Text

 

[morpheus]

dimat
делайте так как указал ув. xRomax

doc.GetItemValue("FieldName")

 

[Omh]

Morpheus

 

[dimat]

dimat
делайте так как указал ув. xRomax

doc.GetItemValue("FieldName")

Пробовал так, но почему то все равно берет только первое значение

а так не правильно?

dim rt as notesItem
Set rt= doc.GetFirstItem("FieldName")
Print rt.text

 

[hosm]

Я тоже, но вы ж не в курсе, человек с Variant умеет работать?
может, ему все значение в строку слепить надо и в мессаджбокс вывести

 

[morpheus]

dimat
следите за мыслью

doc.GetItemValue("FieldName")(0) - ПЕРВОЕ значение
doc.GetItemValue("FieldName")(1) - ВТАРОЕ значение
...
doc.GetItemValue("FieldName")(N) - N-ное значение

сответственно GetItemValue возвращает массив, и ну ни как не только первое значение

 

[xKlonx]

dimat

Пробовал так, но почему то все равно берет только первое значение

Dim w As New NotesUIWorkspace	 
Dim uidoc As NotesUIDocument		
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim mult As Variant	

Set db = session.CurrentDatabase
Set uidoc = w.CurrentDocument	
Set doc = uidoc.Document

mult =doc.GetItemValue("multiply")	
Call doc.ReplaceItemValue("result",mult)

Вот вам доказательство что берёт все выбранные значения.Для проверки создайте ещё одно текстовое поле как у меня "result"
и для примера кнопку куда поместите вышеприведённый код

 

[dimat]

то есть:

dim s as string
s=doc.GetItemValue("FieldName")

в s будет одно значение?

dim s as Variant
s=doc.GetItemValue("FieldName")

в s будут все значения?

Правильно я думаю?
P.S.: Эти значения я вывожу в ексель

xlWorksheet.cells(i%,4).value=

 

[TIA]

то есть:

dim s as string
s=doc.GetItemValue("FieldName")

В данном случае будет рантайм-ошибка "тайп мисматч". Т.к. в стринг нельзя поместить массив

 

[xKlonx]

Variant is a special data type: variables of type Variant can hold values of any of the following data types that LotusScript recognizes, except for user-defined data types:

1) A value of any of the scalar data types that LotusScript supports -- Boolean, Byte, Integer, Long, Single, Double, Currency, String
2) A date/time value
3) An array or list
4) An object reference, that is, a pointer to an OLE Automation object or to an instance of a product-defined or user-defined class, or an object
reference to a Java Object.
5)The NULL value
6) The EMPTY value