作者:iamlaosong
做一个工具要求用户先在列表框中选择,然后再做相应的操作,如果未做选择,要给出提示,调试中发现,取列表框的值,假如未做选择,此时值为null(空),对其进行常规的判断是不行的,例如下面语句:
StationName = ListBox2.Value
If StationName=vbNullString Then
调试发现,上述if条件中无论用“=”还是用“<>”都不成立,用len(StationName)=0也不成立,因为此时的变量StationName值是null,意思为空,可以理解为没有赋值,虽然没有值,但它不是长度为0的字符串vbNullString,判断其不等于vbNullString也不成立,对于这样的变量需要采用下面方式进行判断:
StationName = ListBox2.Value
If IsNull(StationName) Then
msg = MsgBox("请先选择加油站!" , vbOKOnly + vbExclamation, "iamlaosong")
Exit Sub
End If
版权声明:本文为博主原创文章,未经博主允许不得转载。
时间: 2024-10-17 02:05:15