List

[Medevic]

Для: Guest
Сделай выбор для listbox'а формулой из другого скрытого поля.
В этом поле храни список. И удаление/добавление вариантов делай в это поле.

 

[Guest]

<!--QuoteBegin-Medevic+21:11:2005, 14:20 -->
<span class="vbquote">(Medevic @ 21:11:2005, 14:20 )</span><!--QuoteEBegin-->Для: Guest
Сделай выбор для listbox'а формулой из другого скрытого поля.
В этом поле храни список. И удаление/добавление вариантов делай в это поле.

[snapback]27438" rel="nofollow" target="_blank[/snapback]​

[/quote]

Спасибо, но удаление и добавление я сделал с помощью JavaScript

 

[Guest]

Как мне эту формулу связать с JavaScript

 

[Guest]

<!--QuoteBegin-Medevic+21:11:2005, 14:20 -->
<span class="vbquote">(Medevic @ 21:11:2005, 14:20 )</span><!--QuoteEBegin-->Для: Guest
Сделай выбор для listbox'а формулой из другого скрытого поля.
В этом поле храни список. И удаление/добавление вариантов делай в это поле.

[snapback]27438" rel="nofollow" target="_blank[/snapback]​

[/quote]

Ето скрытое поле должно быть просто типа текст?

 

[Medevic]

Для: Guest
Да. И multivalue.

 

[Guest]

<!--QuoteBegin-Medevic+21:11:2005, 14:53 -->
<span class="vbquote">(Medevic @ 21:11:2005, 14:53 )</span><!--QuoteEBegin-->Для: Guest
Да. И multivalue.

[snapback]27444" rel="nofollow" target="_blank[/snapback]​

[/quote]

А какая формула для listbox'а выбора формулой из другого поля?

 

[Guest]

<!--QuoteBegin-Guest+21:11:2005, 15:19 -->
<span class="vbquote">(Guest @ 21:11:2005, 15:19 )</span><!--QuoteEBegin-->А какая формула для listbox'а выбора формулой из другого поля?

[snapback]27446" rel="nofollow" target="_blank[/snapback]​

[/quote]

Напишы бо я в тупике

 

[Medevic]

Формула - просто имя поля.

 

[Guest]

Спасибо - работает.
А как сделать удаления именно таго айтема который на даный момент вибран?

 

[Medevic]

Для: Guest
Можно так: найти его в массиве(поле) - метод ArrayGetIndex. Установить его значение в "". Потом вызвать метод FullTrim, который удалит все пустые эелементы.

 

[Azazel]

Здравствуйте, нашел эту старую тему, как раз то, что я сейчас делаю. спасибо всем, очень помогла. только вот вопрос - как все таки удалить значение из поля этого скрытого. оно не воспринимается как массив. и я не могу поэтому не применить ArrayGetIndex, чтобы найти значение для удаления, ни FullTrim, чтобы соответственно убрать пустую строку после удаления. Выдается ошибка типа Type mismatch. Может быть я что-то не так понял? нельзя ли этот фрагмент кода привести или как то объяснить. Заранее спасибо.

 

[morpheus]

<!--QuoteBegin-Azazel+7:06:2007, 08:53 -->
<span class="vbquote">(Azazel @ 7:06:2007, 08:53 )</span><!--QuoteEBegin-->оно не воспринимается как массив

[snapback]68421" rel="nofollow" target="_blank[/snapback]​

[/quote]
Почему? оно текстовое с разделителем New Line ?

 

[Azazel]

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

Dim del As Variant
del = ArrayGetIndex(hidden_list, selected)

уже не работает - где хидден лист - это то скрытое поле, в котором я пытаюсь найти значение поля селектед, то есть выбранный на данный момент элемент.

 

[Medevic]

Может надо NotesDocument.hidden_list вместо просто hidden_list ?

 

[Azazel]

да, это помогло, но теперь не могу получить значение поля selected )

Dim ws As New NotesUIWorkspace
Dim del As Variant
Dim sel As Variant

sel = ws.CurrentDocument.Document.selected
del = Arraygetindex(ws.CurrentDocument.Document.hidden_list, sel)
ws.CurrentDocument.Document.hidden_list(del) = ""
ws.CurrentDocument.Document.hidden_list.FullTrim

код сейчас что-то типа этого. по прежнему выдает ошибку type mismatch. обратиться к элементу массива под номером del также не удается.

 

[Medevic]

Вместо этого sel = ws.CurrentDocument.Document.selected напиши sel = ws.CurrentDocument.Document.selected(0)


А это лучше вообще удалить. :huh:
<!--QuoteBegin-Azazel+7:06:2007, 10:49 -->
<span class="vbquote">(Azazel @ 7:06:2007, 10:49 )</span><!--QuoteEBegin-->ws.CurrentDocument.Document.hidden_list(del) = ""
ws.CurrentDocument.Document.hidden_list.FullTrim

[snapback]68445" rel="nofollow" target="_blank[/snapback]​

[/quote]

Цель вообще какая?
Удалить выбранный элемент из списка?

 

[morpheus]

sel = ws.CurrentDocument.Document.selected(0)

ws.CurrentDocument.Document.hidden_list.FullTrim - долго думал... курил ....

 

[Azazel]

да, цель удалить элемент из списка...

 

[Medevic]

<!--QuoteBegin-Azazel+7:06:2007, 11:05 -->
<span class="vbquote">(Azazel @ 7:06:2007, 11:05 )</span><!--QuoteEBegin-->да, цель удалить элемент из списка...

[snapback]68452" rel="nofollow" target="_blank[/snapback]​

[/quote]
Надо было с этого начинать.
Вот:
ws.CurrentDocument.Document.hidden_list = Replace(ws.CurrentDocument.Document.hidden_list, ws.CurrentDocument.Document.selected(0), "")

Хотя вот так лучше:
ws.CurrentDocument.Document.hidden_list = FullTrim(Replace(ws.CurrentDocument.Document.hidden_list, ws.CurrentDocument.Document.selected, ""))

 

[Azazel]

Большое вам всем спасибо. все заработало. только добавил рефреш после удаления, чтобы сразу обновлялся список.