Hi,
Hat jemand eine Idee, wie man an die aufrufende Funktion
'ne Variable vom Type List as variant zurückliefern kann?
Klar, geht auch anderes, wäre aber schön, wenn ich den "List as variant" in 'ner Funktion (--> wird an mehreren Stellen verwendet)
berechnen kann.
Mein Anwendungsbeispiel:
Im Postopen die Werte von bestimmten Feldern merken und
im Querysave prüfen, ob sich da Werte geändert haben.
Die Function sieht ungefähr so aus:
Function set_lstfield(doc as NotesDocument) as variant
Dim item as Notesitem
Dim Werte List as Variant
Dim feldnamen(20) as string
feldnamen(0) = "feldnamex"
feldnamen(1) = "feldnamey"
feldnamen(2) = "feldnamez"
Forall itemname in feldname
if not itemname = "" then
set item = doc.GetFirstitem(itemname)
If not item is nothing then
'alle werte in die Liste schreiben
werte(itemname) = item.values
else
' Feld kommt nicht vor!!
end if
end if
End forall
set_lstfield = werte
End Function
werte sieht ungefähr so aus
-werte
- felnamex
(0) ["feldwertx"]
- felnamey
(0) ["erster Wert feldwerty"]
(1) ["zweiter Wert feldwerty"]
- felnamez
(0) ["feldwertz"]
Ja, und set_lstfield = werte geht natürlich wegen nem TypeMismatsch nicht....
P.S.:
Wie bekommt man den Code ordentlich eingerückt hin?
blanks werden offensichlich hier im Forum rausgetrimmt.
