Сравнение 2 полей

Тема в разделе "Lotus - Программирование", создана пользователем SkyDream, 18 авг 2006.

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

    SkyDream Гость

    Помогите сравнить значения 2х полей.

    Имеем 2 поля:

    DocPerson (person1,person2,person3,person4)
    DocPersonOut (person1,person3)


    Необходимо вычислить значения поля DocPerson которые не входят в поле DocPersonOut и вывести их в поле DocPersonInt

    Подскажите как это можно вычислить?

    main As notesdocument
    Dim itema As NotesItem
    Dim itemb As NotesItem
    Set itema = main.GetFirstItem( "DocPerson" )
    Set itemb = main.GetFirstItem( "DocPersonOut" )
     
  2. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    А не покатит что-то вроде:
    Код (Text):
    Dim docPerson As Variant
    Dim docPersonOut As Variant
    Dim docPersonIn As Variant

    docPerson = doc.DocPerson
    docPersonOut = doc.DocPersonOut
    docPersonIn = Fulltrim(ArrayReplace(docPerson, docPersonOut, ""))
    doc.DocPersonIn = docPersonIn
    Сам не проверял, это так, идея
     
  3. SkyDream

    SkyDream Гость

    чет не фурычит даже в хелпе почитал
     
  4. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Тогда на формулах:
    Код (Text):
    dp:= DpcPerson;
    dpO:= DocPersonOut;
    FIELD DocPersonIn:= @Trim(@Replace(dp; dpO; ""));
    ""
    Кстати, на LS это правильно будет так:
    Код (Text):
        Dim ws As New NotesUIWorkspace
    Dim doc As NotesDocument
    Dim f1 As Variant, f2 As Variant, f3 As Variant

    Set doc = ws.CurrentDocument.Document
    f1 = doc.GetFirstItem("DocPerson").Values
    f2 = doc.GetFirstItem("DocPersonOut").Values
    f3 = Fulltrim(Arrayreplace(f1, f2, ""))
    Call doc.ReplaceItemValue("DocPersonIn", f3)
    ws.CurrentDocument.Refresh
     
  5. SkyDream

    SkyDream Гость

    ок спасбо огромное!!! я разобрался все получилось
     
Загрузка...
Статус темы:
Закрыта.

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