Добавить Значение В Item

Тема в разделе "Lotus - Программирование", создана пользователем lost, 11 мар 2013.

Статус темы:
Закрыта.
  1. lost

    lost New Member

    Регистрация:
    9 мар 2013
    Сообщения:
    2
    Симпатии:
    0
    Хочу сделать агент, который бы дописывал в поле с читателями notes-имена, но не знаю, как это сделать,
    пока придумал только это, но AppenditemValue создает новый item, а мне нужно дописать в старый
    Код (Text):
    Dim db As NotesDatabase
    Dim ns As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim readers As Variant
    Dim col As NotesDocumentCollection
    Dim doc As NotesDocument
    Set db=ns.CurrentDatabase
    Set col = db.Unprocesseddocuments
    Set doc = col.Getfirstdocument()
    readers=ws.PickListStrings(0,True)

    Call doc.Appenditemvalue("Readers", readers)

    Call doc.Save(True, True)
     
  2. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Set item = doc.GetFirstItem("Readers")
    Call item.AppendToTextList( "Значение" )
     
  3. dimat

    dimat Lotus team
    Lotus team

    Регистрация:
    31 июл 2008
    Сообщения:
    518
    Симпатии:
    0
    oldvalue=doc.getItemValue("itemname")
    call doc.replaceItemValue("ItemName",Arrayappend(oldvalue,appvalue))
     
  4. lost

    lost New Member

    Регистрация:
    9 мар 2013
    Сообщения:
    2
    Симпатии:
    0
    Спасибо!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей