• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

  • Автор темы kilcher
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

kilcher

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

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

TIA

Путём помещения значения в массив, далее к новому элементу ArrayAppend старого списка и помещением результата обратно.
Либо Evaluate({filed моё_поле_со_списком:="} + новое_значение + {":моё_поле_со_списком}, doc)
 
K

kilcher

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

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

Omh

что такое
Код:
getitemvalues
:(
Note - NotesDocument?
 
T

TIA

Value без s в конце
Call note.replaceitemvalue("ReviewerList", Arrayappend(result, note.getitemvalue("ReviewerList"))))

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

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

Omh

Код:
Dim result As Variant
result = note.GetItemValue("Lotusname") 'мое новое значение
Call note.replaceitemvalues("ReviewerList", Fulltrim(Arrayappend(result, note.getitemvalue("ReviewerList")))) 'по желанию ArrayUnique
Почему Option Declare не включен?
 
K

kilcher

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!