想請問各位大大一下,
在定義Type的時候遇到固定或靜態資料不能大於64K的問題,
以下程式碼的預設矩陣大小為
wDay(31) 想改到366
Task(10) 想改到30
Project(17) 想改到50
基本上用預設的都會過,但大一點就會遇到64K的問題.
有去網路上找解法,大部分都是建議先不設再用Redim,
但試了很久,不知道是語法錯誤還是怎樣,試了很久都不會過.
以下是我的寫法
Dim Tester As Employee
ReDim Tester.Project(50).Task(30).EffortByDate.wDay(366)
這樣子寫這行會出現陣列超出範圍的錯誤
如果只寫
ReDim Tester.Project(50)
這樣子這一行會過,
但下面有用到Tester.Project(0).Task(0).TaskName的那行反而出現超出範圍錯誤
如果寫
ReDim Tester.Project(50)
ReDim Tester.Project(50).Task(30)
這樣子這兩行會過,但結果和上面一樣
下面有用到Tester.Project(0).Task(0).TaskName的那行反而出現超出範圍錯誤
搞了很久都搞不定,
以下是我Type的定義,可否請各位大大幫忙看一下問題在哪邊
感謝幫忙!
Public Type wRecord
wYear As Integer
wMonth As Integer
wDay() As String
wStatus As String
End Type
Public Type Work
TaskName As String
TaskStatus As String
EffortByDate As wRecord
End Type
Public Type wHandle
ProjectNumber As String
ProjectStatus As String
Model As String
Customer As String
Catogory As String
Task() As Work
End Type
Public Type Employee
Name As String
Project() As wHandle
End Type