redimensioning a multidimensional array

[BlackMustard]

i get a "subscript out of range" on the following code the second time it runs. the first time it's ok... (error on the last line)

Dim arrFAB() As Variant
Dim rows As Integer
 
Private Sub cmdAdd_Click()
    rows = rows + 1
    ReDim Preserve arrFAB(1 To rows, 1 To 5)

[QVeen72]

Hi,

In VB6, When using "Preserve" with arrays , Only the upper bound of the last dimension in a multidimensional array can be changed.
If u change any of the other dimensions, or the lower bound of the last dimension, you will get this run-time error .
Instead Use one more array .

Read This

REgards
Veena

[BlackMustard]

Hi,

In VB6, When using "Preserve" with arrays , Only the upper bound of the last dimension in a multidimensional array can be changed.
If u change any of the other dimensions, or the lower bound of the last dimension, you will get this run-time error .
Instead Use one more array .

Read This

REgards
Veena

ok, i used a dummie array to turn everything around, and it worked. this is how i did it:

Dim arrFAB() As Variant
Dim rows As Integer
 
Private Sub cmdAdd_Click()
    ' This sub adds one more item to a list box of items to purchase
    Dim arrDummie() As Variant
    Dim i, j As Integer
    Dim totalprice As Double
 
    rows = rows + 1
 
    ReDim Preserve arrFAB(1 To 5, 1 To rows)
    ReDim arrDummie(1 To rows, 1 To 5)
 
    arrFAB(1, rows) = txtFAB.Text
    arrFAB(2, rows) = txtDescription.Text
    arrFAB(3, rows) = txtQty.Text
    arrFAB(4, rows) = txtUnitPrice.Text
    arrFAB(5, rows) = CInt(txtQty.Text) * CInt(txtUnitPrice.Text)
 
 
    For i = 1 To rows
        For j = 1 To 5
            arrDummie(i, j) = arrFAB(j, i)
        Next
        totalprice = totalprice + arrFAB(5, i)
    Next
 
    lstItems.List = arrDummie()
    txtTotalPrice.Text = totalprice
    cmdCreate.Enabled = True
End Sub