Werte in Liste per Script anhängen

[Lancelot]

Hy Leute ich bin am verzweifeln.

Ich habe zwei Felder als Dialoglisten.

Feld eins enthält die Werte 1 : 2 : 3 : 4
Beim neuen Dokument, bekommt Feld zwei die Werte die in Feld eins selektiert wurden.
Danach werden die Häckchen im Feld ein wieder gelöscht.

Ruft man nun das Dokument erneut auf, kann man im Feld eins wieder Häckchen setzten und
dann muss geprüft werden, ob es diesen Wert im Feld zwei schon gibt und wenn nicht, dann schreibe Ihn an die letzte Stelle in das Feld zwei.

Nun meine Frage, wie weiße ich in einer Forschleife den Wert aus Feld eins an die letzte Stelle von Feld zwei?
Den Fehler den ich bekomme ich "Illegaly use Property".

Haben Notes 7.0.1 Server und Client im Einsatz.

Vielen Dank schon mal.

[Axel]

Eine Möglichkeit wäre die Methode AppendToTextList aus der Klasse NotesItem.

Die Andere, du liest die bestehenden Werte in ein Array ein, erweiterst dieses um die neuen Werte und weist das Array dem Feld zu.


Axel

[Glombi]

Du brauchst ein NotesItem und für den Check, ob ein Wert bereits vorhanden ist, ein

if not item.Contains("blabla") then
 call item.AppendToTextList("blabla")
end if

Andreas

[Lancelot]

Danke Euch, jetzt füllt er das Feld.
Aber er macht das auch wenn der Wert schon mal vorhanden ist.
Wahrscheinlich ist da in meinem Code etwas falsch.

Das Feld "mailvorhanden" soll gefüllt werden.
Das Feld mailzugeteilt" soll die Werte zum anklicken enthalten.

Wenn der Wert, der man im Feld "mailzugeteilt" anklickt schon im Feld "mailvorhanden" eingetragen ist, dann darf dieser Wert nicht mehr in das Feld "mailvorhanden" geschrieben werden.
Geht das überhaupt?

Set item = doc.GetFirstItem( "mailvorhanden" )
If Not item.Contains(mailzugeteilt) Then   
   Call item.AppendToTextList(doc.mailzugeteilt)
   doc2.mailvorhanden = doc.mailvorhanden
End If


Vielen Dank!

[Glombi]

So:

Set item = doc.GetFirstItem( "mailvorhanden" )
If Not item.Contains( doc.mailzugeteilt(0) ) Then   
   Call item.AppendToTextList( doc.mailzugeteilt(0) )
   doc2.mailvorhanden = doc.mailvorhanden
End If

Andreas

[Lancelot]

Vielen Dank Andreas,

jetzt klappt es wunderbar.
Habe nur noch eine Schleife davorgesetzt, weil auch Mehrfachwerte
zugelassen werden sollen, aber jetzt haut alles hin.

Nochmals Danke