13518219792
vb.NET有时很怪，不同版本，或者不同机器，在操作excel时，判断单元格是否为空时，会出现不同的错误提示。
创新互联-专业网站定制、快速模板网站建设、高性价比开平网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式开平网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖开平地区。费用合理售后完善，10年实体公司更值得信赖。
大多数情况，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
如果你是使用ADO控件来连接数据库，那么这样：
If Adodc1.Recordset.RecordCount = 0 Then MsgBox "这个数据表是空的！！"
如果是使用ADODB对象来连接数据库的（像下面那样）：
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\tada.mdb;Persist Security Info=False"
Set Rs = New ADODB.Recordset
Rs.Open "Select * from data", Conn, adOpenKeyset, adLockOptimistic
那么这样：
If Rs.RecordCount = 0 Then MsgBox "这个数据表是空的！！"
1、vb6判断数据库字段为空值的方法是：if isnull(x1) then ...
2、vb6判断字符串是空串的方法是：if x2="" then ...
3、强调一下x1在vb6下必须是varint变量，才能装入数据库的空值NULL。
