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

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

SkyDream

#1
Помогите сравнить значения 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" )
 

LuMee

Well-known member
02.05.2006
477
0
#2
А не покатит что-то вроде:
Код:
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
Сам не проверял, это так, идея
 

LuMee

Well-known member
02.05.2006
477
0
#4
Тогда на формулах:
Код:
dp:= DpcPerson;
dpO:= DocPersonOut;
FIELD DocPersonIn:= @Trim(@Replace(dp; dpO; ""));
""
Кстати, на LS это правильно будет так:
Код:
	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
 
S

SkyDream

#5
ок спасбо огромное!!! я разобрался все получилось
 
Статус
Закрыто для дальнейших ответов.