Domino 9 und frühere Versionen > ND8: Entwicklung

Arrayappend mit leerem Array bringt type mismatch

(1/2) > >>

theBastian:
Hallo allerseits,

kurz vor Weihnachten möchte ich Euch nochmal zeigen, wie schlechts bei mir mit Arrays aussieht.


--- Code: ---Dim vSG As Variant
Dim vschl(0) As String
vschl(0) = "test"
vSG = Arrayappend (vSG,vschl)
--- Ende Code ---

Bringt immer Type mismatch.

Sicher, weil das Array vSG noch leer ist, oder?  :-:
Muss ich das Array vorher mit Redim mindestens den Index 0 verpassen?
Oder mit IsEmpty testen? Aber auch da muss ich doch redimmen.

Oder denke ich in die völlig falsche Richtung?

Danke Euch schonmal für die Hilfe.

Sebastian

Peter Klett:
Die Frage ist, was Du erreichen möchtest. Wenn vsg nichts beinhaltet, was soll dann passieren?

Probier mal

If IsArray (vsg) Then
  vsg = ArrayAppend (vsg, vSchl)
Else
   vsg = vSchl
End If

Falls bei leerem vsg ein leerer Eintrag angenommen wird, führst du das von Dir genannte Redim vorher aus

ascabg:
Hallo,

Also fuer mich waere die Hilfe zu ArrayAppend schon aussagekraeftiog genug.

--- Zitat ---ArrayAppend throws a Type mismatch error if:
sourceArray1 is not an array
--- Ende Zitat ---

Andreas

theBastian:
Danke Euch, habs verstanden.

Also immer erst prüfen, ob es schon ein Array ist und dann ArrayAppend.
Aber wie kann ich ich ein Array dimensionieren, dass leer ist, damit ArrayAppend auch ohne den vorherigen Test mit IsArray funktioniert?

Peter Klett:
Es gibt kein Array ohne Elemente

Navigation

[0] Themen-Index

[#] Nächste Seite