日期:2014-05-17 浏览次数:20909 次
Private Function IsBlank(byref TempVar) IsBlank = False Select Case VarType(TempVar) Case 0, 1 '--- Empty & Null IsBlank = True Case 8 '--- String If Len(TempVar) = 0 Then IsBlank = True End If Case 9 '--- Object tmpType = TypeName(TempVar) If (tmpType = "Nothing") Or (tmpType = "Empty") Then IsBlank = True End If Case 8192, 8204, 8209 '--- Array If UBound(TempVar) = -1 Then IsBlank = True End If End Select End Function