关于如何判断数组是否为空的问题

jsgj2023

见到一些新的东西。

microyip

我觉得使用Dim s As Variant比较便利点，可以先判断isarray是否数组，不是数组时再判断s=empty是否为空

6739912

microyip 发表于 2016-12-6 21:18
我觉得使用Dim s As Variant比较便利点，可以先判断isarray是否数组，不是数组时再判断s=empty是否为空

中肯。。。。。。。。。。。

Echeris

Function IsEmptyArr(ByRef x() As String) As Boolean  '判断是否为空数组的自定义函数
On Error Resume Next
Dim i As Byte
i = UBound(x())
If Err > 0 Then
    IsEmptyArr = True: Exit Function
Else
    IsEmptyArr = False: Exit Function
End If
End Function

w553491775

大侠们，为什么不用 ubound(arr)<1 来判断啊？

cicnmg

Len(Join(array(1,2,3), ",")) > 0

232670631

Sub sad()

Dim ad() As String
Debug.Print EmptyArr(ad)'result is True
redim ad(0)
Debug.Print EmptyArr(ad)'result also True

End Sub

Function EmptyArr(ByRef x() As String) As Boolean&#160;&#160;'
Dim tempStr As String
tempStr = Join(x, "")
EmptyArr = LenB(tempStr) <= 0
End Function


看不懂

wxlgod

livewire 发表于 2010-9-24 09:24
好像 tempStr = Join(x, "")  更合适些

其他各种方法都没有用（我试过很多），只有这个方法有效。判断这个值是否是空值

游乐缘

使用Join是个好方法