如题所述
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
sub test
IIf(SafeArrayGetDim(i_arr) > 0, "数组不为空!", "数组为空!")
end sub
sub test
IIf(SafeArrayGetDim(i_arr) > 0, "数组不为空!", "数组为空!")
end sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-11-28
如ARR为数组的话
IF arr is nothing then
IF arr is nothing then
第2个回答 2021-08-07
Private Function IsArrayEmpty(Arr As Variant) As Boolean
On Error Resume Next
Dim U, E
U = UBound(Arr)
E = Err.Number
Err.Clear
If E = 13 Then
IsArrayEmpty = 1 'Empty
Else
IsArrayEmpty = 0 'No Empty
End If
End Function
On Error Resume Next
Dim U, E
U = UBound(Arr)
E = Err.Number
Err.Clear
If E = 13 Then
IsArrayEmpty = 1 'Empty
Else
IsArrayEmpty = 0 'No Empty
End If
End Function
第3个回答 2013-11-28
何谓数组为空？
