配列のコピーがされない

解決

みやっち 2008-07-19 21:30:14 No: 140101

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

みやっち 2008-07-19 22:12:38 No: 140102

解決しました。

ReDim Preserveの位置が悪かったですね。