Hallo,
ich möchte einem Parameter mittels Script mehrere Werte zuweisen, die ich vorher auslese. Die Anzahl der Werte ist variable.
Hier mein Quellcode:
---------------------------------------------------------------------
Dim String1 As String
Dim arrayOfVariantOfBSTR1 As Variant
ReDim arrayOfVariantOfBSTR1(Anzahl)
Set strParam1 = myPart.Parameters.Item("Test")
For i = 1 to Anzahl
String1 = myPart.AxisSystems.item(i).name
arrayOfVariantOfBSTR1(i) = String1
Next
strParam1.SetEnumerateValues arrayOfVariantOfBSTR1
---------------------------------------------------------------------
Leider wird nur der letzte Wert des Arrays an den Parameter übergeben.
Definiere ich das Array so
Dim arrayOfVariantOfBSTR1(4)
arrayOfVariantOfBSTR1(0) = "1"
arrayOfVariantOfBSTR1(1) = "2"
arrayOfVariantOfBSTR1(2) = "3"
arrayOfVariantOfBSTR1(3) = "4"
arrayOfVariantOfBSTR1(4) = "5"
strParam1.SetEnumerateValues arrayOfVariantOfBSTR1
funktioniert es.
Gibt es eine Möglichkeit einem Parameter eine variable Anzahl von Werten zuzuweisen?????????
MfG
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP