2次元動的配列の第一引数のみを可変にする

ReDim Preserve aStrSKU(x, 2)
aStrSKU(x, 0) = strPre
aStrSKU(x, 1) = サブ2
aStrSKU(x, 2) = サブ3

x = x + 1

上記のソースをDo Untilでまわしているのですが、
2週目以降にxに１を足して行数だけ増やしたいのですが、
2週目でエラーが発生します。
行数だけ要素数を増やす方法はありますか？

No.3 ベストアンサー 回答者： chibita_papa 回答日時： 2010/03/26 18:24

こんな感じで

Structure column
Dim col1 As String
Dim col2 As String
Dim col3 As String
End Structure

Private Sub test()

Dim aStrSKU() As column
Dim x As Integer

Do Until x = 3
ReDim Preserve aStrSKU(x)
aStrSKU(x).col1 = "strPre"
aStrSKU(x).col2 = "サブ2"
aStrSKU(x).col3 = "サブ3"

x = x + 1
Loop

End Sub

この回答へのお礼

ありがとうございます。
参考になりました。

お礼日時：2010/03/30 14:43

No.2 回答者： ToOrisugaru 回答日時： 2010/03/26 14:43

はじめまして、通りすがるともうします。

上記ソースは、vb.netですか？
vb.netでしたら上記のような配列を操作したい場合には、２次元配列より
多段階配列を使用すると便利ですよ。
ちなみに、定義は以下のように定義します。

　dim aStrSku()() as string

詳細は、以下のurlを参照ください。

http://msdn.microsoft.com/ja-jp/library/dd314345 …

この回答へのお礼

今回の処理には使いませんでしたが
後学の為になりました。

お礼日時：2010/03/30 14:45

No.1 回答者： n-jun 回答日時： 2010/03/26 14:08

変更させる場合は、

ReDim Preserve aStrSKU(2, x)

と後ろ側だけが出来るはずです。
⇒行・列の考えを逆にする必要が出てきます。

この回答へのお礼

すみません。
上記の方法でエラーがでてしまいました。
違う方法で無事解決できました。
ありがとうござます。

お礼日時：2010/03/30 14:45