Rückgabewert einer Function

[Annette]

Hallo liebe Entwickler,
irgendwie habe ich ein Problem mit dem Rückgabewert einer Function , die ich mir selbst nicht erklären kann. Vielleicht weiß jemand von Euch mehr!

Ich lese in einer Funktion bestimmte Feldwerte (Mehrfachwerte) aus einem Dokument in einen Variant und möchte diesen als Rückgabewert der Funktion übergeben. Dabei gibt es den Fehler Type mismatch!
Die Methode GetItemValue liefert eine Liste zurück, macht das evtl. Problem? Wie kann ich das umgehen???

Die Funktion sieht etwa so aus:

Function GetOpenValues(doc As NotesDocument)
   Dim VarFields(2) As Variant
   Dim VarValues(2) As Variant
   
   VarFields(0) = "Name"
   VarFields(1) = "Vorname"
   VarFields(2) = "Kategorie"
   
   For i = 0 To Ubound(VarValues)
      VarValues(i) = doc.GetItemValue(VarFields(i))      
   Next
   
   GetOpenValues = VarValues
   
Exit Function

[Untitled]

Hallo Annette

Probier mal:

Code

Function GetOpenValues(doc As NotesDocument) as Variant

Dein Funktionskopf hatte nämlich gar keinen Rückgabewert definiert.

Grüsse
Moritz

[Annette]

Hallo Moritz,

danke für den Tipp, das leider tritt der Fehler trotzdem auf.

Gruß, Annette

[Annette]

Hallo Moritz,

vielen Dank für den Hinweis, leider tritt der Fehler aber trotzdem auf!
Irgendwie hängt das Problem an dem Array das ich nach dem einlesen der Feldwerte erhalte.

Gruß,Annette

[DAU-in]

*Irgendwie hängt das Problem an dem Array das ich nach dem einlesen der Feldwerte erhalte.*

Tritt der Fehler in der Schleife auf oder danach?

[koehlerbv]

Der Debugger hätte Dir die problematische Zeile genau angezeigt ...

VarValues(i) = doc.GetItemValue(VarFields(i))

VarValues ist ein eindimensionales Array. Dieses füllst Du aber statt wie deklariert mit skalaren Werten wiederrum mit Arrays!

Ergo:
VarValues(i) = doc.GetItemValue(VarFields(i) (0))

Bernhard

[Untitled]

VarValues(i) = doc.GetItemValue(VarFields(i) (0))

Ne, besser ist

Code

VarValues(i) = doc.GetItemValue(VarFields(i) )(0)

 

[Axel]

VarValues(i) = doc.GetItemValue(VarFields(i) (0))

Dann knallts aber bei Mehrfachwerten. Das geht so nicht.

Siehe hier.

Ich lese in einer Funktion bestimmte Feldwerte (Mehrfachwerte) aus einem Dokument in einen Variant ...

Axel

[Annette]

Hallo zusammen,

vielen Dank für die inzwischen zahlreichen Hilfen!!!
Ich habe jetzt nur das Problem, dass in den Feldern eigentlich Mehrfachwerte stehen und ich nicht immer nur den ersten Wert auslesen möchte  

Eigentlich hatte ich gedacht, dass ich einem Variant (hier also die Funktion) alles übergeben kann, auch Varianten mit Varianten als Elemente sozusagen.

ICh muss wohl weitersuchen

[Annette]

Apropos:

der Fehler tritt in der Zeile

"GetOpenValues = VarValues"

auf, d.h. in VarValues stehen meine Werte wie gewünscht im Variant, erst bei der Übergabe an die Funktion habe ich das Problem. Wenn es gar nicht anders geht, muss ich wahrscheinlich die Mehrfachwerte in den Feldern in einen String schrieben und später über 'explode' wieder auseinanderziehen!?

[Untitled]

Also bei mir hat die Übergabe geklappt, wenn ich "VarValues(i) = doc.GetItemValue(VarFields(i) )(0)" geschrieben habe.

Aber dann wird ja, wie gesagt, nur das erste Element übergeben.

Also was du hier machen möchtest, sind mehrere Rückgabewerte. Das funktioniert in Notes so nicht. Du kannst dir mit einem Variant-Array tatsächlich behelfen, aber mit Arrays in Arrays wirds dann ziemlich kompliziert, das Ganze klug zusammenzusetzen um es später wieder auseinanderzupfriemeln.

Was möchtest du denn genau erreichen? Gibts vielleicht einen anderen Weg?

Moritz

[Tode]

das ganze liesse sich durchaus mit Arrays in Arrays behandeln, wird aber schnell unübersichtlich....

Ich würde schlicht und ergreifend mit einer eigenen Klasse arbeiten, da bleibt das ganze auch noch schön sprechend.

Also so:

Class OpenValues

   Public Namen as Variant
   Public Vornamen as Variant
   Public Kategorien as Variant

   Sub New( doc as NotesDocument )
      Me.Namen = doc.GetItemValue( "Name" )
      Me.Vornamen = doc.GetItemValue( "Vorname" )
      Public Kategorien = doc.GetItemValue( "Kategorie" )
   End Sub
End Class

Das ganze dann so aufrufen:

Dim openVals as OpenValues

...
Set openVals = New OpenValues( doc )

und dann können die Werte jederzeit ohne kenntnis des jeweiligen Array- Index aufgerufen werden:

Forall kategorie in openVals.Kategorien
...
End Forall

oder so
tmpName = openVals.Vorname( i ) & " " & openVals.Name( i )

nur um mal ein paar Beispiele zu nennen...

Ist doch allemal lesbarer als

name1 = openVals( 0 )( 0 )

(was nebenbei LotusScript auch gar nicht zulässt, man müsste mit "Zwischen- Arrays" arbeiten)

HTH
Tode

[Annette]

Hallo Moritz,
Ziel ist es, im Postopen best. Feldwerte einzulesen und diese mit den Feldwerten im Querysave zu vergleichen um bei Änderungen weitere Aktionen starten zu können (das Ganze soll ich Backend ablaufen).
Ich wollte den Code möglichst in einer Funktion haben, um nicht ständig in den verschiedenen Masken ändern zu müssen.

Gruß,
Annette

[Annette]

die Idee mit der Klasse gefällt mir ganz gut, auch wenn ich damit gar keine Erfahrung habe 
ICh denke mal, hier im Forum werde ich dazu noch ein paar gute Tipps finden!

Vielen Dank für die Hilfe!!!

[LN4ever]

Liebe Annette,

das riecht doch nach einer Document-History der Feldinhalte.

Schau einmal hier: http://www.sw-guide.de/lotus-notes-domino/lotusscript-history/

Das ist vielleicht für dich schon die fertige Lösung.