Function isredim (byref myarray () as variant) AS Boolean on Error Goto Z Dim Sztmp Sztmp = Join (MyArray, ",") Isredim = lenb (sztmp)> 0 exit functionz: isredim = false
Isredim judgment array is assigned, if it is an era, will return false
Example: if Isredim (UARRAY) THEN 'UARRAY has data ELSE' UARRAY No data end if
'-------------------------------------------' Please indicate the source 'author: Don just fine' E-mail: tanaya@163.com '------------------------------------- --------
