0
点赞
收藏
分享

微信扫一扫

判断数组是否被分配的VB函数


Function IsReDim(ByRef MyArray() As Variant) As Boolean
    On Error GoTo Z
    Dim szTmp
    szTmp = Join(MyArray, ",")
    IsReDim = LenB(szTmp) > 0
    Exit Function
Z:
    IsReDim = False
End Function

IsReDim判断数组是不是被分配过,如果是动态数组被Erase了,将返回False

使用例子:
If IsReDim(uArray) Then
   'uArray里面有数据
Else
   'uArray里面没有数据
End If


' 作者:唐细刚

举报

相关推荐

0 条评论