Probleme mit Variant-List

[MadMetzger]

Bei folgender Konstruktion bekomme ich einen "Type mismatch", den ich mir nicht erklären kann:
Der Konstruktor einer Klasse ist mit folgenden Parametern definiert:

Code

Public Sub new(source As NotesDatabase, target As NotesDatabase, selectionFormula As String, newForm As String, fixValues List As Variant,checkForDuplicates As Integer)

Bei der Verwendung jedoch bekomme ich die Fehlermeldung, obwohl ich die Liste doch als Variant-Liste deklariert habe.

Code

Dim fixValues List As Variant
Set fixValues(BK_FIELD_CATEGORY$) = Cvar(BK_CONTENT_CATEGORY)
Set fixValues(BK_FIELD_SYSTEM$) = Cvar(BK_CONTENT_SYSTEM)
Set fixValues(BK_FIELD_STATE$) = Cvar(BK_CONTENT_STATE)
Set fixValues(BK_FIELD_SAVE_OPTIONS$) = Cvar(BK_CONTENT_SAVE_OPTIONS)

Set exporter = New DocumentImporter(source,target,selectionFormula,FORM_BK$,fixValues,False)

Was mache ich falsch?

[koehlerbv]

Was macht eigentlich das Set da?

[MadMetzger]

Das set ist weg... Hat aber wohl keinen Unterschied gemacht... Der Fehler bleibt... 

[koehlerbv]

Ich habe das mal nachgebaut. Es funktioniert natürlich bei mir (was in dem Fall eher ein Problem ist  ).
In welcher Zeile kommt denn der Fehler?
Der Listtag ist wirklich String? (Okay, sonst käme eine andere Meldung) ...
Was wird den Listmembern datentypmässig zugewiesen?

Bernhard

[MadMetzger]

In der Zeile mit dem set exporter =.... kommt die Meldung. Die Listmember sind eigentlich Strings und Integer, denn Typen von Konstanten werden ja laut DesignerHelp entsprechend dem gesetzten Wert gesetzt, wenn nicht per suffix determiniert. Daher habe ich das CVar beim Hinzufügen in die Liste benutzt.

[koehlerbv]

Markus, bist Du Dir überhaupt sicher, dass die List-Variable als Parameter den Fehler verursacht? Abgespeckt habe ich auch den Aufruf der Sub nachgebaut (okay, nicht als Klasse), aber auch das funktioniert bei mir.

Insofern ratlos,
Bernhard

[MadMetzger]

Ich war bis eben auch ratlos... Ich hatte vorhin alles in dem Zusammenhang stehende von fixValues auskommentiert. Eben gerade habe ich alles wieder einkommentiert und prompt geht es... Ich überlege gerade, woher das denn kommen kann. Mein Verdacht ist, dass der Designer ein Problem damit hatte, dass das fixValues mal als "List As String" definiert war und dann der Kompilierfehler nach Korrektur weiter bestanden hat, da der Compiler dies evtl nicht "gemerkt" hat. Komische Sache auf jeden Fall

[koehlerbv]

Hast Du denn nach der Änderung auf "List As Variant" alle beteiligten Design-Elemente durchkompiliert? Ansonsten wäre das Beobachtete ja bekanntermassen durchaus erklärbar.

Bernhard

[MadMetzger]

Nein, hatte ich nicht. In der Klasse war das fixValues immer als "List as Variant" deklariert. Nur mein Fehler war, dass ich die Liste im verwendenden Agenten zuerst fälschlicherweise mit String definiert hatte. Dadurch kam dann der Type mismatch, den ich dann nur dadurch wieder wegbekommen habe. In der Klasse habe ich auch nichts geändert, sonst hätte ich das Durchkompilieren auch durchgeführt und das hätte das Verhalten dann erklärt...