You cannot change the number of dimensions in an array so redim() is out.
The only way would be to dim an array with the dimensions you require then transfer the getrows() array across and insert the extra data. This should add an extra column to the array
Code:
dim new_array(ubound(getRowsArray(1),GetRowsArray(2)+1))
for i = 0 to ubound(getRowsArray(1))
new_array(i,0) = GetRowsArray(i,0)
next
for i = 0 to ubound(getRowsArray(2))
new_array(i,1) = GetRowsArray(i,1)
next
for i = 0 to ubound(new_array(3))
new_array(i,2) = "new data for extra element"
next
Of course if you are just adding an extra row
it would be;
Code:
redim getRowsArray(ubound(getRowsArray(1)+1,ubound(getRowsArray(2)))
getRowsArray(ubound(getRowsArray(1),0))= "new col 1 data"
getRowsArray(ubound(getRowsArray(1),1))= "new col 2 data"
None of this is tested BTW. just writing code at the keyboard and with a (now) part bottle of red wine close by 
__________________
Chris. ->> Links are advertising NOT optimising!! <<-
A foolish consistency is the hobgoblin of little minds
Thought for today:- I SEO the only industry where all the cowboys are Indians?
|
