'###############################################################
'函数作用:检查一个数组是否为空
'###############################################################
Public Function CheckArray(ArrayName As Variant, Optional Com As Integer = 0) As Variant
On Error GoTo Er
Select Case Com
Case 0
Do
Ne = Ne + 1
XT = UBound(ArrayName, Ne)
Loop
Case Else
CheckArray = UBound(ArrayName, Com)
End Select
Exit Function
Er:
If Com = 0 Then CheckArray = Ne ‐ 1 Else CheckArray = ‐1
End Function
联系客服