[Resolved - silly me]2D arrays - silly q

[veryjonny]

I have a dynamic array

dim myarray() as string

Now I want to redim this array so I use :

redim preserve myarray(intctr)

Works fine.

But for two dimensional arrays - its giving me an error - subscript out of range. what do I do?

[Arbiter]

It'll need to dimmed to a value first (such as 0)

The first dim statement cannot be a redim preserve, as it hasn't yet been dimmed.

That help?

[veryjonny]

Thanks Arbiter for replying but,

Nope didnt work.

[Arbiter]

Post your full code/project and I'll have a look.

[veryjonny]

Dim myArray() As String
Dim intctr As Integer


Private Sub Command1_Click()
intctr = intctr + 1
ReDim Preserve myArray(intctr, 2)
End Sub

Click on the command twice to get the error.

I think , there is soenthing smalll we are missing....

Thanks for ur time

[veryjonny]

the error was u cannot increment the lower bound in redim i 2D array

Dim myArray() As String
Dim intctr As Integer


Private Sub Command1_Click()
intctr = intctr + 1
ReDim Preserve myArray( 2,intctr)
End Sub

Would work.

thanks anyways

[Arbiter]

I think the problem is the

dim myarray()

only sets the array up as a 1D dynamic array.

Let me have a play and get back to you...

[veryjonny]

Arbiter - Thanks a lot for your time.

But see my previous post - I have got the soln - pls do not waste ur time on it.

[Arbiter]

I'm using the following

Dim myarray() As Integer, x As Integer
 
Private Sub Command1_Click()
    x = x + 1
    ReDim Preserve myarray(1, x)
End Sub
 
Private Sub form_load()
    [b]Dim myarray(0, 0)[/b]
End Sub

The bit in bold is the bit that I meant you'd need in order to kick the array off

[veryjonny]

Works without it as well.

[Arbiter]

Oh, right, yeah.

I'll shut up now...

I completely misread your last post anyway.

I think I need a beer....

[veryjonny]

Anyways thanks a lot.