Domino 9 und frühere Versionen > ND8: Entwicklung

Elemente eines Item zählen

(1/2) > >>

oxyd21:
Servus,

ich steh gerade ein wenig auf'm Schlauch.
Wie zähle ich die Elemente in einem NotesItem(Text List)?

So geht's schonmal nicht:

--- Code: ---Dim item As Notesitem
...
Set item = New NotesItem(doc,"People","" )
Call item.AppendToTextList( doc.SendTo )
Call item.AppendToTextList( doc.CopyTo )
Call item.AppendToTextList( doc.From)

...

Dim x As Variant
Dim element As Integer
x = doc.getitemvalue("item")
element  = Ubound(x)
Msgbox Cstr(element)
--- Ende Code ---

Viele Grüße,
Michael

koehlerbv:
"Geht schon mal nicht" ist eine schlechte Fehlerbeschreibung ...

Offensichtlich kenne ich eine Rahmenbedingung bei Dir noch nicht, denn schon ein simples
Messagebox Cstr (Ubound (NotesDocument.ItemName) + 1)
würde ausreichen, um die Anzahl der Arraymember anzuzeigen.

Bernhard

oxyd21:
Danke, das wars.

koehlerbv:
Das kann es nicht gewesen sein, denn Dein Code hätte auch funktionieren müssen (abgesehen davon, dass Du bei 3 Elementen eben nur die Zahl 2 ausgegeben bekommen hast wegen Option Base 0).

Woran hat es also wirklich geklemmt?

Bernhard

oxyd21:
Der Code war soweit in Ordnung; manchmal sieht man den Wald vor lauter Bäumen nicht.

doc.getitemvalue("item") -> das ist ja wohl ein ziemlich blöder Fehler. Mit getitemvalue auf ein Objekt zugreifen.  ::) Das blieb logischerweise leer und ich bekam 0 als Ergebnis.

Das mit der 1 ist klar, die Messagebox war nur zur Kontrolle beim Test.

Grüße, Michael

Navigation

[0] Themen-Index

[#] Nächste Seite