Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Gerhard am 02.11.06 - 12:52:23

Titel: Mehrfachwerte
Beitrag von: Gerhard am 02.11.06 - 12:52:23
Hallo zusammen, folgendes Problem !
Ein Feld enthält Mehrfachwerte und ich möchte diese auslesen und in einer Variablen speichern um diese Variable an anderer Stelle wieder auszugeben.
Folgender Ansatz:
   zaehler=0
   bewertungsteam=""
   Do While Not (doc.bewertungsteam(zaehler) Is nothing)
                bewertungsteam = bewertungsteam+doc.bewertungsteam(zaehler)
   zaehler=zaehler+1
   Loop

Funktioniert aber nicht, was mach ich falsch ?

Danke für die evtl. Hilfe !
Titel: Re: Mehrfachwerte
Beitrag von: koehlerbv am 02.11.06 - 12:55:41
"Funktioniert aber nicht ..." ist eine sehr wenig hilfreiche Aussage.

Nothing kannst Du nur bei Objekten, nicht aber skalaren Variablen verwenden.

For zaehler = 0 to Ubound (doc.bewertungsteam)
    bewertungsteam = bewertungsteam & doc.bewertungsteam (zaehler))
Next

Bernhard
Titel: Re: Mehrfachwerte
Beitrag von: DerAndre am 02.11.06 - 12:58:28
Ich würde mal sagen da kommt dann ein langer String raus, weil ja nur die Positionen aneinanderkekettet werden.

Wäre das nicht richtiger... ?


Dim bewertungsteam as Variant

bewertungsteam = doc.bewertungsteam

Titel: Re: Mehrfachwerte
Beitrag von: koehlerbv am 02.11.06 - 13:05:00
Gerhard will den neuen Wert "an anderer Stelle ausgeben". Dann wird er wohl eher einen String brauchen. Das sagt aber nur meine Glaskugel ...

Und dann geht das ganze natürlich noch einfacher:
bewertungsdeam = Join (doc.bewertungsteam, ", ")

Der oben gepostete Code diente nur dazu, Gerhards Fehler aufzuzeigen mitsamt einem gültigen Konstrukt.

Bernhard
Titel: Re: Mehrfachwerte
Beitrag von: Gerhard am 02.11.06 - 13:09:16
danke bernhard !
das genügt schon um mein problem zu lösen. wie krieg ich jetzt noch die namen rein angezeigt, also ohne ou's und so ?
Titel: Re: Mehrfachwerte
Beitrag von: koehlerbv am 02.11.06 - 13:17:10
Dann brauchst Du doch wieder die Schleife aus der ersten Antwort, ergänzt in folgender Form:

Dim nameBewerter As NotesName

For zaehler = 0 to Ubound (doc.bewertungsteam)
    Set nameBewerter = New NotesName (doc.bewertungsteam (zaehler))
    bewertungsteam = bewertungsteam & ", " & nameBewerter.Common
Next

HTH,
Bernhard
Titel: Re: Mehrfachwerte
Beitrag von: DerAndre am 02.11.06 - 13:22:12
Ihr mit euren Glaskugeln  ;D

Ich schaff mir auch irgendwann mal eine an...
Titel: Re: Mehrfachwerte
Beitrag von: Gerhard am 02.11.06 - 13:24:28
Danke Bernhard!

Das war alles was ich brauchte ...... es ist so leicht wenn man es weiss :-) !
Titel: Re: Mehrfachwerte
Beitrag von: koehlerbv am 02.11.06 - 13:29:40
Na, nun weisst Du es ja  ;)

Andre: Mit den Glaskugeln ist das so eine Sache ... Manchmal benutze ich sie auch nicht, und das ist dann besser so  ;D

Bernhard