一： 利用错误捕获功能判断
我们提供的服务有：成都网站设计、做网站、微信公众号开发、网站优化、网站认证、长洲ssl等。为上1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的长洲网站制作公司
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "数组不为空"
End If
Exit Sub
z:
MsgBox "数组空"
End Sub
二、 Join方法：
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "为空"
Else
MsgBox "不为空"
End If
End Sub
vb.NET有时很怪，不同版本，或者不同机器，在操作excel时，判断单元格是否为空时，会出现不同的错误提示。
大多数情况，xlSheet.Cells(1, 1)="" 就可以判断这个单元是否有内容。
但是有时也会有不同的提示。总结不同机器，不同版本，用下面几种来试试单元格是否是空白。
xlSheet.Cells(1, 1)=""
xlSheet.Cells(1, 1).value=""
xlSheet.Cells(1, 1).value.tostring=""
如果上面三个代码都会自动提示错误，请用下面终极模式：）
xlSheet.Cells(1, 1).value = Nothing
VB的字符串比较标准由Option Compare指定，默认是Binary，即二进制，且遵循按字符从左到右逐个进行比较的规则。每个字符的大小由其编码决定。比如字母"A"的ASCII码是65，"a"的ASCII码是97，因此"A""a"。
对于汉字而言，比较每个汉字的Unicode编码（16进制），"男"在Unicode编码中是7537，"女"在Unicode编码中是5973，因此"女""男"。
你说的"女""男"，是不对的。
if myreader.getstring(2) "" then
else
....
end if
取反 这样可以的 我一直就这样写
1、vb6判断数据库字段为空值的方法是：if isnull(x1) then ...
2、vb6判断字符串是空串的方法是：if x2="" then ...
3、强调一下x1在vb6下必须是varint变量，才能装入数据库的空值NULL。
