判断指定对象是否为空值, 包含大部分情况, 譬如空数组,空字符串,Empty和Null对象等等
|
01
|
Private Function IsBlank(byref TempVar)
|
|
03
|
Select Case VarType(TempVar)
|
|
04
|
Case 0, 1 '--- Empty & Null
|
|
07
|
If Len(TempVar) = 0 Then
|
|
11
|
tmpType = TypeName(TempVar)
|
|
12
|
If (tmpType = "Nothing") Or (tmpType = "Empty") Then
|
|
15
|
Case 8192, 8204, 8209 '--- Array
|
|
16
|
If UBound(TempVar) = -1 Then
|
VarType 函数返回下列值：
|
常数
|
值
|
描述
|
|
vbEmpty
|
0
|
Empty（未初始化）
|
|
vbNull
|
1
|
Null（无有效数据）
|
|
vbInteger
|
2
|
整数
|
|
vbLong
|
3
|
长整数
|
|
vbSingle
|
4
|
单精度浮点数
|
|
vbDouble
|
5
|
双精度浮点数
|
|
vbCurrency
|
6
|
货币
|
|
vbDate
|
7
|
日期
|
|
vbString
|
8
|
字符串
|
|
vbObject
|
9
|
Automation 对象
|
|
vbError
|
10
|
错误
|
|
vbBoolean
|
11
|
Boolean
|
|
vbVariant
|
12
|
Variant（只和变量数组一起使用）
|
|
vbDataObject
|
13
|
数据访问对象
|
|
vbByte
|
17
|
字节
|
|
vbArray
|
8192
|
数组
|
