hvordan tjekkes om dynamisk array er tomt

For t = LBound(ditArray) To UBound(ditArray)
If Not IsEmpty(ditArray(t)) Then flag = True
Next
If flag = False Then MsgBox "array er tom"
If flag = True Then MsgBox "array er ikke tom"

OBS første element i et array er 0, med mindre Option Base er sat til noget andet - fx 1

If IsEmpty(ditArray) Then
Then MsgBox "array er tom"
else
MsgBox "array er ikke tom"
end if

Du kan også bruge en API-funktion til at teste om et array er tomt eller ej :)


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


Denne kan så bruges således (med et array, der hedder arrTest):

If SafeArrayGetDim(arrTest) > 0 Then
    MsgBox "ikke tomt"
Else
    MsgBox "tomt"
End If

OK - læg svar

det var kabbaks løsning jeg havde i tankerne, kunne bare ikke huske IsEmpty - men smid svar allesammen

;-)) et svar