专家坐堂-代码问题，如何判断一列为空？谢谢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码问题，如何判断一列为空？谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3858)

--  作者：杨浩
--  发布时间：2009/8/12 21:46:00
--  代码问题，如何判断一列为空？谢谢

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

--  作者：杨浩
--  发布时间：2009/8/12 21:46:00
--

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

--  作者：杨浩
--  发布时间：2009/8/12 21:47:00
--
目的就是当审核表的审核列为空时，不打开查看错误提示窗口！！！

--  作者：杨浩
--  发布时间：2009/8/12 21:48:00
--
也就是审核表无行时

--  作者：杨浩
--  发布时间：2009/8/12 21:51:00
--
判断表为空没有任何行，如何判断？

--  作者：杨浩
--  发布时间：2009/8/12 21:58:00
--
版主帮帮忙，谢谢

--  作者：czy
--  发布时间：2009/8/12 22:08:00
--
if DataTables("表名").DataRows.Count = 0 Then

--  作者：杨浩
--  发布时间：2009/8/12 22:10:00
--
谢谢

--  作者：yangming
--  发布时间：2009/8/12 22:11:00
--
If Tables("表A").Rows.Count > 0 Then

Forms("查看错误提示").Open()
End If