dynamically create two dimensional array

[jwspring]

Hi
How to create a two dimensional array dynamically?
Thanks.

[dglienna]

You would have to pass a reference to the two dimensions, then use DIM to create the new array Dim MyArray(3,4) ' Creates 4x5 array starting with 0

or

Dim MyX as Integer, MyY as Integer
MyX =3
MyY = 4
Dim MyArray(MyX,MyY)

[jwspring]

dglienna,
actuall, I would like to do this:

Public Type ALLREC
row As Integer
col As Integer
table( , ) As String
.....
End Type

Private Sub myfunc(Rec As ALLREC)
Rec.row = 2
Rec.col = 4
Dim Rec.table(Rec.row, Rec.col) As String
....
End Sub

What's the correct way to do it?
Thank you!

[dglienna]

Nope. You'd have to OVERLOAD the CONSTRUCTOR to set up the class with zero or more items.

Create a SUB inside of the class (and make it PUBLIC) so you can call it. Pass the parameters, then REDIM / Preserve or not the Array. Might need more for different array types

[DataMiser]

With the usage of the terms table row and col I am wondering why you are not using a recordset object?

[WoF]

Sorry if I mingle, but where is the problem? VB knows dynamic arrays. If I may make you recall the proper syntax:

  Dim MyArray() as String, x%, y%
...
  'now we get the dimensions
  x=4
  y=5
  ReDim MyArray(x, y)

You cannot use variables in a Dim statement. Only constants are allowed.
Dim A() however makes a dynamic array, which gets its final dimensining with th ReDim statement, which allows the use of variables.

David: An interesting thesis. Which constructor of which class would you like to overload?

[WoF]

Btw.:
Dynamic Arrays can certainly be passed byref to a function/sub to be dimensioned there.

Dim arr$()

Private Sub DimArray(AnArray() As String)
  Dim x%, y%
  x = 3
  y = 7 * 5
  ReDim AnArray(x, y)
End Sub

Private Sub Command1_Click()
 DimArray arr
End Sub

I think that should completely cover your problem, jwspring.

Oh, not to forget: ReDim Preserve allows to increase the array elements while keeping the existing content. Only I think you cannot change the number of dimensions anymore.

[dglienna]

WoF - Zero Dimension, One Dimension, and Two Dimensions

[WoF]

Zero Dimension? Kinda like a simple variable? And what about 3D?

[dglienna]

He didn't say dimensions as in 3D I suppose. Also, you had this:

Private Sub DimArray(AnArray() As String)

[WoF]

Yeah, I had this. What about it?
Anything wrong with it? Tested it within a small program. Works.

[dglienna]

That would be how to pass a 0-Dimensional Array! only if you REDIM it correctly...

[WoF]

Yeah, right. We would also call it UNdimensioned.