共9 条记录, 每页显示 10 条, 页签: [1]

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

1楼

杨浩发表于：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

2楼

杨浩发表于：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

3楼

杨浩发表于：2009/8/12 21:47:00

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

4楼

杨浩发表于：2009/8/12 21:48:00

也就是审核表无行时

5楼

杨浩发表于：2009/8/12 21:51:00

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

6楼

杨浩发表于：2009/8/12 21:58:00

版主帮帮忙，谢谢

7楼

czy 发表于：2009/8/12 22:08:00

if DataTables("表名").DataRows.Count = 0 Then

8楼

杨浩发表于：2009/8/12 22:10:00

谢谢

9楼

yangming 发表于：2009/8/12 22:11:00

If Tables("表A").Rows.Count > 0 Then

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

共9 条记录, 每页显示 10 条, 页签: [1]