Domino 9 und frühere Versionen > ND6: Entwicklung

Listenfeld Werte auslesen und übergeben

(1/2) > >>

seerow:
Guten Morgen Notes Gemeinde,

folgendes Problem, ich habe in einer Maske ein Listenfeld (Allow multiple values). Jetzt möchte ich, wenn das Dokument gespeichert wird, die markierten Werte aus dem Feld auslesen, und in Komma - separierter Form in ein Textfeld des gleichen Dokumentes schreiben. Um die Werte aus den Feld auszulesen, habe ich eine "Forall" Schleife benutzt, die mir ein Array zurück liefert:


--- Code: ---Set item = doc.GetFirstItem( "fd_select_alternate" )
i=0
Forall v In item.Values
Redim Preserve eintrag(i)
eintrag(i) = v
i = i+1
End Forall

Set item = doc.ReplaceItemValue("fd_lookup_alt_contact_email",????) (Hier ist das Problem)
Call doc.ComputeWithForm( False, True)
Call doc.Save(False, False)

--- Ende Code ---


Problem: Wie bekomme ich die einzlenen Werte des Arrays nun in das Textfeld des Dokumentes?

Ich bin mir nicht sicher, ob der oben gezeigte Lösungsansatz stimmt, für Verbesserungen wäre ich Dankbar.

klaussal:
Dim Feldstr as string

i=0
Feldstr = ""

Forall v In item.Values
   Redim Preserve eintrag(i)
   ' eintrag(i) = v
   i = i+1
                Feldstr = Feldstr + eintrag(i) + ","
End Forall

doc.deinFeld = Feldstr

klaussal:

--- Zitat von: klauss am 24.11.05 - 09:07:05 ---Dim Feldstr as string

i=0
Feldstr = ""

Forall v In item.Values
   Redim Preserve eintrag(i)
   ' eintrag(i) = v
   i = i+1
                Feldstr = Feldstr + eintrag(i) + ","
End Forall

doc.deinFeld = Feldstr

--- Ende Zitat ---

Könnte so gehen ....

seerow:
ja, danke

das ist natürlich auch eine Idee. Problem ist nur bei deiner Lösung, dass immer nach dem letzten Eintrag ein "," steht was natürlich da nicht  gebraucht wird. Das komma kann man aber auch noch "wech" kürzen.


--- Code: ---i=0
Feldstr = ""

Forall v In item.Values
Redim Preserve eintrag(i)
i = i+1
Feldstr = Feldstr + v + ", "
End Forall

l = Len(feldstr)
Feldstr =  Left(feldstr, l-2)

--- Ende Code ---

root:
gibt es auch eine moeglichkeit, alle werte auszulesen, auch die die nicht markiert sind?

vielen dank
thomas

Navigation

[0] Themen-Index

[#] Nächste Seite