主题：代码问题，如何判断一列为空？谢谢

DataTables("审核").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("调资基础数据") '指定数据来源
f.DataTable = DataTables("审核") '指定数据接收表
f.ExcludeExistValue = true
f.ExcludeNullValue = true
f.Fill() '填充数据
For Each dr As DataRow In DataTables("审核").DataRows
     dr("审核")=""
    If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then '判断是否不符合验证要求
        dr("审核")="录入身份证号位数错误!!!"
    End If
    If dr("性别")<> ReadSex(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10) & "录入性别与身份证号性别不符!!!"
    End If
    If dr("出生时间")<> ReadBirthDay(dr("身份证号")) Then
        dr("审核")= dr("审核") & Chr(13) & Chr(10) &"录入出生时间与身份证出生时间不符!!!"
    End If
    If dr("参加工作时间").Year-dr("出生时间").Year < 15
        dr("审核")= dr("审核") & Chr(13) & Chr(10)&"参加工作时间逻辑有误,请核实!!!"
    End If
Next
DataTables("审核").DeleteFor("[审核] Is Null ")

If Tables("审核").Rows(1).IsNull("审核") Then
 Return       '终止代码的执行
else
Dim frm As WinForm.Form
frm = Forms("查看错误提示")
frm.Open()
End If

If Tables("审核").Rows(1).IsNull("审核") Then
 Return       '终止代码的执行
else
Dim frm As WinForm.Form
frm = Forms("查看错误提示")
frm.Open()
End If

目的就是当审核表的审核列为空时，不打开查看错误提示窗口！！！

也就是审核表无行时

判断表为空没有任何行，如何判断？

版主帮帮忙，谢谢

谢谢