掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
配列のコピーがされない (ID:140101)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
vntAへvntBの値を入れていきたいのですが F8でステップ実行の場合は配列に値が格納されていきます F5で処理を流すとvntBが入る所が空になってしまいます やり方が悪いのでしょうか？ また、他にやり方はありますでしょうか？ ちなみにUBound(vntB)=1、 UBound(vntB, 2)=234件です Dim vntA As Variant Dim vntB As Variant '２次元で構成（フィールド数、レコード数） vntA = ADO_RecSet.GetRows() vntB = ADO_RecSet.GetRows() If IsNull(vntB) = False And IsEmpty(vntB) = False Then lngStart = 0 If IsNull(vntA) = False And IsEmpty(vntA) = False Then lngStart = UBound(vntA, 2) + 1 End If For i = 0 To UBound(vntB) For j = 0 To UBound(vntB, 2) ReDim Preserve vntA(UBound(vntB), lngStart + j) vntA(i, lngStart + j) = vntB(i, j) Next j Next i End If
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.