rediming dynamic 2 dimensional array of user defined type
Maybe you want something like:
Option Explicit
Public Type Material
MatNum As Integer
MatDate() As Date
End Type
Public matType() As Material
Sub testme()
Dim MaxMaterials As Long
Dim MaxArraySize As Long
Dim ictr As Long
MaxMaterials = 3
MaxArraySize = 4
' no problem here
ReDim matType(1 To MaxMaterials)
For ictr = 1 To MaxMaterials
ReDim matType(ictr).MatDate(1 To MaxArraySize)
Next ictr
End Sub
if each mattype has the same number of .matdates.
Arnold Klapheck wrote:
I defined a dynamic array as a programmer defined type that contains a
dynamic array of type Date as below:
Public Type Material
MatNum As Integer
MatDate() As Date
End Type
Public matType() As Material
when I go to redim them as such:
' no problem here
ReDim matType(1 To MaxMaterials)
' error invalid qualifier "matType." if I leave it out, does not create
an array
ReDim matType.MatDate(1 To MaxArraySize)
any ideas how to redim the MatDate?
--
Dave Peterson
|