Форум компьютерной помощи — Удаление одного значения изз множественного поля

Re: Удаление одного значения изз множественного поля

null@example.com (admin) — Wed, 12 Apr 2023 07:10:13 +0000

Удаление дублей значений в множественном поле.
В поле empty вносим только уникальные значения поля who.

Set item2 = doc.GetFirstItem("empty") ' удаление дублей who
Forall v In item.Values
If Not item2.contains(v) Then Call item2.AppendToTextList(v)
End Forall
doc.who=doc.empty
doc.empty = ""

Re: Удаление одного значения изз множественного поля

null@example.com (admin) — Fri, 07 Apr 2023 11:07:17 +0000

Этот код удаляет текущего юзера "user" с поля "who", а потом по индексу idx удаляет его же данные с поля "whois"

idx=Arraygetindex(doc.who, user)
Print "idx" idx
doc.empty=""
Set itemtmp = doc.GetFirstItem("empty")
Forall z In item.values
If z<>user Then Call itemtmp.AppendToTextList(z)
End Forall
doc.who=doc.empty
doc.empty=""

Set item = doc.GetFirstItem("whois")
zz=0
Forall z In item.values
zz=zz+1
If zz <> idx Then Call itemtmp.AppendToTextList(z) ' индекс юзера
End Forall
doc.whois=doc.empty
doc.empty=""

Удаление одного значения изз множественного поля

null@example.com (admin) — Fri, 07 Apr 2023 08:03:13 +0000

В лотусе просто так нельзя удалить одн значение с множественного поля.
Например:
idx=Arraygetindex(doc.who, user)
doc.who(idx) = "" ошибка
не работает.

А надо:

Set item = docref.GetFirstItem( "who" )
valueArray=item.values
idx=Arraygetindex(valueArray, user)
If idx>=0 Then
valueArray(idx)=""
Item.Values = Fulltrim(valueArray)
Set item = docref.GetFirstItem( "whois" )
valueArray=item.values
valueArray(idx)=""
Item.Values = Fulltrim(valueArray)
End If