7,785
社区成员




Private Type dataTy
ID As Integer
X As Single
Y As Single
Z As Single
Pter As String
CMD As String
End Type
Private dataArr() As dataTy
Private Sub Form_Load()
Dim ArrayCount As Long
'这里可以初始化数组,你可以看看效果
'ReDim dataArr(0)
On Error Resume Next
ArrayCount = UBound(dataArr)
If Err.Number <> 0 Then
Err.Clear
MsgBox "错误"
Else
MsgBox "数据以初始化"
End If
End Sub