Нужно скопировать и дописать данные в поле

  • Автор темы LIGHT
  • Дата начала
L

LIGHT

#1
Человеки, подскажите как на LS замутить такое:
Есть поле много значное при определенном условии в это поле нужно засунуть еще одно значением.

Как можно всять все текущие данные?
Типа doc.GetItemValue("Pole")(ALL) что бы в дальнейшем сделать

Код:
cur = doc.GetItemValue("Pole")([b]ALL[/b])
add = doc.GetItemValue("PoleAdd")(0)
Call doc.ReplaceItemValue("Pole"cur & chr(10) & add)
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#2
<!--QuoteBegin-LIGHT+17:12:2007, 10:09 -->
<span class="vbquote">(LIGHT @ 17:12:2007, 10:09 )</span><!--QuoteEBegin-->Как можно всять все текущие данные?
[snapback]90149" rel="nofollow" target="_blank[/snapback]​
[/quote]
doc.GetItemValue("Pole")
 

morpheus

скриптописец
07.08.2006
3 915
1
#3
Для: LIGHT
Я бы использовал
AppendToTextList
Код:
Dim doc As NotesDocument
Dim item As NotesItem
Dim newVals( 1 To 3 ) As String
'...set value of doc...
Set item = doc.GetFirstItem( "Categories" )
newVals( 1 ) = "Girls"
newVals( 2 ) = "Boys"
newVals( 3 ) = "Toys"
Call item.AppendToTextList( newVals )
Call doc.Save( False, True )
 
L

LIGHT

#4
Ругается

Код:
 Dim item as NoteItem
Set .....

CountElements = Ubound(doc.GetItemValue("Review")

For st = 0 to CountElements 

NewVal (st) = doc.GetItemValue("Reviewers")( st )
MsgBox NewVal (st) 
Next

Call item.Appen.....
Ругается на NewVal (st) = doc.GetItemValue("Reviewers")( st )
 

morpheus

скриптописец
07.08.2006
3 915
1
#5
где add - это переменная со значением которое надо добавить в поле

Код:
Dim doc As NotesDocument
Dim item As NotesItem
add = doc.GetItemValue("PoleAdd")(0)
Call item.AppendToTextList( add )
 
S

Sandr

#6
doc.ReplaceItemValue("Pole", ArrayAppend(doc.GetItemValue("Pole"), doc.GetItemValue("PoleAdd")(0)))
 
K

K-Fire

#7
Обобщу что тут понаписали :)

Если поле текстовое, то:

Код:
Dim doc As NotesDocument
Dim item As NotesItem
Call item.AppendToTextList("то что надо добавить к списку")
Если поле нетекстовое, то:

Код:
tmp = doc.GetItemValue("поле") ' в тмп получается список
tmp = arrayappend(tmp, "значение, которое добавить в список")
doc.поле = tmp или doc.ReplaceItemValue("поле", tmp)
Естественно надо навесить проверки на то что такое поле уже есть, что значение в поле непустое и т.д.