VB中判断空的几种方法,Null, Missing, Empty, Nothing, vbNullString区别

vb6中存在几个虚幻的值：Null、Missing、Empty、Nothing、vbNullString。除了最后一个之外，每一个值都不能直接用“a=值”来判断。下面分别解释一下这几个值的含义。

1、Null。

Null指一个不合法的数据，判断一个变量是否为Null使用isNull函数。

这种数据通常出现在三种情况下：

(1)最简单的，函数直接返回Null给调用方。譬如

Function DivideEx(ByVal A as Double, ByVal B as Double) as Double

If B=0 Then DivideEx=Null Else DivideEx=A/B

End Function这个函数在B=0时返回Null指不合法数据。

(2)数据库中，当一个字段设为“允许空值”时，VB读取到空值就会用Null表示。譬如

Function GetCity(rst as ADODB.Recordset) as String

If isNull(rst.Field("City")) GetCity=rst.Field("Province") Else GetCity=rst.Field("City")

End Function在这个函数中，当City字段为空时（表示所在地区为一直辖市）返回Province字段，否则返回City字段。

(3)在调用库函数时，如果遇到传送变量类型与定义类型不一样时有时会出现Null值。

Null值在计算时有点奇怪，譬如Null-Null=Null，Null+10=10，Null+""=""等

2、Missing

Missing指传递进入Variant变量的缺少，判断Missing使用isMissing函数。譬如

Function test(Optional a)

If isMissing(a) Then test="You don't give this the varible a." Else test="You've given this the varible a."

End

Sub Main()

Debug.Print test '->You don't give this the varible a.

Debug.Print test(123) '->You've given this the varible a.

End Sub注意，Missing只会在Varient中出现，如果给入的数据类型是Byte,Integer,Long,Single,Double等缺少时为0；String缺少时为""；Object缺少时为Nothing。

3、Enpty

Empty指一个Variant变量未初始化，判断Empty使用isEmpty函数。譬如

Function test(a)

If isEmpty(a) Then test="a is Empty" Else test="a isn't Empty"

End Function

Sub Main()

Dim a as Variant

test(a) '->a is Empty

a=""

test(a) '->a isn't Empty

a=0

test(a) '->a isn't Empty

End Sub4、Nothing

Nothing相当于Object变量中的空值。指指向于空对象的引用。

未初始化的Object变量为Nothing；未传入函数的Object为Nothing。判断一个变量是否为Nothing使用 is Nothing表达式。

同时，Nothing还有另外一个用途，就是把所有指向某一个对象的Object变量赋值为Nothing可以销毁此对象节省内存空间。

5、vbNullString

vbNullString是一个String类型的常量，通常用于传递一个Null给库函数。不过很奇怪的是vbNullString=""这个表达式为True.  

 

FROM:http://gerhut.net/blogger/2006/08/vb6nullmissingemptynothingvbnullstring.html