配列について (ID:105675)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim curKingaku() As Currency intCnt = 0 ReDim curKingaku(oraDynaset.Count) Do While (0 = oraDynaset.EOF) curKingaku(intCnt) = oraDynaset.fields("*****") intCnt = intCnt + 1 loop ってのは、どうですか？