Добавление значений в начало списка

Тема в разделе "Lotus - Программирование", создана пользователем kilcher, 17 сен 2009.

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

    kilcher Гость

    Всем добрый день!
    Вопрос может и простой,но уже голову сломала. И вроде сталкивалась с тако задачей, а вспомнить ее решение не могу. Помогите!

    Есть поле Dialog List, при нажатии на кнопку в него добавляются значения. Добавляются они в конец списка(AppendToTextList использую). Как сделать,чтобы они добавлялись в начало?
     
  2. TIA

    TIA :-)
    Lotus team

    Регистрация:
    15 май 2009
    Сообщения:
    790
    Симпатии:
    0
    Путём помещения значения в массив, далее к новому элементу ArrayAppend старого списка и помещением результата обратно.
    Либо Evaluate({filed моё_поле_со_списком:="} + новое_значение + {":моё_поле_со_списком}, doc)
     
  3. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.047
    Симпатии:
    18
    FIELD List:=NewValues:List;
    ""
     
  4. kilcher

    kilcher Гость

    А на скрипте как это реализовать?
     
  5. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.047
    Симпатии:
    18
    call Doc.replaceitemvalues("List", arrayappend(NewValues, Doc.getitemvalues("list")))
     
  6. kilcher

    kilcher Гость

    Dim result As Variant
    result =note.Lotusname 'мое новое значение
    Call note.replaceitemvalues("ReviewerList", Arrayappend(result, note.getitemvalues("ReviewerList")))

    Выдает ошибку Illegal use. Что не так записываю :(
     
  7. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    что такое
    Код (Text):
    getitemvalues
    :(
    Note - NotesDocument?
     
  8. TIA

    TIA :-)
    Lotus team

    Регистрация:
    15 май 2009
    Сообщения:
    790
    Симпатии:
    0
    Value без s в конце
    Call note.replaceitemvalue("ReviewerList", Arrayappend(result, note.getitemvalue("ReviewerList"))))

    И ещё учесть, что поле ReviewerList бывает пустым. Пустота же не нужна.
    Мне больше evaluate нравится. Читабельней как-то.

    result = Evaluate({field ReviewerLis:=@Trim(Lotusname:ReviewerLis); ""}, note)
     
  9. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Код (Text):
    Dim result As Variant
    result = note.GetItemValue("Lotusname") 'мое новое значение
    Call note.replaceitemvalues("ReviewerList", Fulltrim(Arrayappend(result, note.getitemvalue("ReviewerList")))) 'по желанию ArrayUnique
    Почему Option Declare не включен?
     
  10. kilcher

    kilcher Гость

    Спасибо огромное,за замечания и помощь. Туплю сегодня по-страшному (в предвкушении долгожданного отпуска) :(
     
Загрузка...
Статус темы:
Закрыта.

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