怎么判断动态数组是否为Null

[MeBoss]

Public Type dataTy

ID As Integer

X As Single
Y As Single
Z As Single

Pter As String
CMD As String

End Type


Public dataArr() As dataTy

If dataArr(0).ID = Null Then
MsgBox ("错误")
End If


这样会报下标越界的 请问应该怎么修改呢
还有一个问题是 我写成 dataArr(0) = Null 为什么会报类型不匹配呢？？
谢谢

[yangzn76]

dataArr() 没有定义到底用多少个元素，你要redmin dataArr(5) 后才能用。

[孤独剑_LPZ]

1 没有实例化
2 判断表达式是否为空要用isnull()

[现在还是人类]

VB 中只有 Variant 类型可以设置 Null 值，所以也只有 Variant 类型在有必要用
IsNull 去判断，其他类型就没必要用 Null 去进行读写操作。

你的结构体内变量，不是 Variant 类型，所以无法用 Null 的概念去判断。
再者，你的目的是判断数组是否初始化，可以用错误陷阱的方式来处理也可以的，如：

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

[laviewpbt]

private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long



SafeArrayGetDim(dataArr) = False 说明数据还没有初始化