DataTables("审核").DataRows.Clear() '清空指定表数据
dim f As New Filler
f.SourceTable = DataTables("调资基础数据") '指定数据来源
f.SourceCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间" '指定数据来源列
f.DataTable = DataTables("审核") '指定数据接收表
f.DataCols = "序号,单位名称,姓名,身份证号,性别,出生时间,参加工作时间" '指定数据接收列
f.Fill() '填充数据
For Each dr As DataRow In DataTables("审核").DataRows
If dr("身份证号").Length <> 15 AndAlso dr("身份证号").Length <> 18 Then
dr("审核")="录入身份证号位数错误!!!"
else
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 < 18
dr("审核")= dr("审核") & Chr(13) & Chr(10)&"工作时间与出生日期之差,不能小于18年,请核实!!!"
End If
if dr("审核").Contains("...") then
dr("审核")= dr("审核").Replace("...","")
end if
Next
DataTables("审核").DeleteFor("[审核] Is Null ")
Tables("审核").Cols("审核").Width= 150
Tables("审核").AutoSizeRows()
Dim frm As WinForm.Form
frm = Forms("查看错误提示")
frm.Open()