Private Type ExtData Date As Long Rec(1 To 13) As Single End Type Private ExtRec() As ExtData Private Sub Form_Load() ReDim ExtRec(4096, 1895) As ExtData End Sub
[此贴子已经被作者于2017-2-5 12:53编辑过]