主题：如何实现这种想法？谢谢

身份证号看位数，出生日期和性别和身份证号核对！！！参加工作时间要晚于出生日期～～

工作时间应该是等于出生日期减去工作时间要大于并等于18才对

身份证现在都是18位，如果有旧的15位，那你要转换成18位的（这得请教别人，我不会），其他你可以照葫芦画瓢～  都是些比较大小···

ReadBirthDay	从身份证号码中读取出生日期
ReadSex	从身份证号码中读取性别

审核错误的信息全部显示到审核结果表内！！！谢谢

呵呵，你单位都把三国人物招聘进来了，工资标准太低了，当心他们造反啊～        开个玩笑了····

参照10楼代码，换个条件就行了 照葫芦画瓢～  会自动在 审核结果表里增加行并填入相关内容的···· 
如果这也不会，就请您好好看看帮助文件啦～   狐狸爸爸经常这样留点作业给大家做的～  

比如一个人的信息：性别、出生日期错误，我如何让错误信息全部显示在一个表格内！！谢谢

For Each r As DataRow In DataTables("调资基础数据").DataRows
     把10楼代码改造一下.......... currenttable.current 换成 r ，条件自己替换一下····
next

看你其他的帖子，代码都写成天书了，应该不会有什么难的了～

另外，你的菜单设计的那么好，我还不会呢～ 呵呵···· 

要求审核表中加入身份证号,性别,出生日期及工作时间列

If e.Row("身份证号").Length <> 15 AndAlso e.Row("身份证号").Length <> 18 Then '判断是否不符合验证要求
    e.Row("审核")="身份证号数不对"
End If
If e.Row("性别")<> ReadSex(e.Row("身份证号")) Then
    e.Row("审核")= e.Row("审核") & Chr(13) & Chr(10)&"性别不对"
 End If
If e.Row("出生日期")<> ReadBirthDay(e.Row("身份证号")) Then
    e.Row("审核")= e.Row("审核") & Chr(13) & Chr(10) &"出生日期不对"
End If
If e.Row("工作时间").Year-e.Row("出生日期").Year < 18
    e.Row("审核")= e.Row("审核") & Chr(13) & Chr(10)&"工作时间不对"
End If
Maintable = Tables("审核") '选择审核表作为主表.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rsgzglxt.rar