удаление из списка

Тема в разделе "Lotus - Программирование", создана пользователем 1KIA, 1 сен 2011.

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

    1KIA Гость

    помогите, пожалуйста

    Есть поля "Name1" и "Name2", кнопка "Тест".
    Нажимаем кнопку и из списка (который вызываем из перечня ФИО поля Name1) удаляем человека, например из 7 осталось 6 человек, сохраняем изменения. Данные вводятся из вьюхи, где их имена на русском
    Но мне надо, чтобы в поле Names2 тоже попал весь этот перечень но в полном виде на англ

    Код (Text):
    vibor=ws.Prompt( 7, "Удалить", "выбрать", "", doc.name1 )
    doc.name1=Evaluate({@Trim( @Transform(name1; "X"; @IF(X*="} & Implode( vibor ,{":"}) & {"; X:=""; X ) ) )} , doc)
    doc.name2 = Evaluate({@Trim( @Transform(name1 (но здесь в 1 поле на русс. поэтому их не находит в списке поля 2); "X"; @IF(X*="} & Implode( vibor ,{":"}) & {"; X:=""; X ) ) )} , doc)
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Код (Text):
        name1 = doc.name1
    name2 = doc.name2
    vibor = ws.Prompt( 7, "Удалить", "выбрать", "", name1)
    Forall x In vibor
    n = Arraygetindex(name1, x)
    If Not Isnull(n) Then
    name1(n) = ""
    name2(n) = ""
    End If
    End Forall
    Call doc.ReplaceItemValue("name1", FullTrim(name1))
    Call doc.ReplaceItemValue("name2", FullTrim(name2))
     
  3. 1KIA

    1KIA Гость

    ОГРОМНОЕ спасибо!
    Работает
     
Загрузка...
Статус темы:
Закрыта.

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