|
If e.DataCol.Name = "身份证号" Then '是身份证号发生变化吗?
If e.DataRow.IsNull("身份证号") Then '身份证号是否为空
e.DataRow("出生年月") = Nothing '如果为空,则清除出生年月
e.DataRow("性别") = Nothing '如果为空,则清除性别
Else
'否则从身份证号码列中提取出生年月
e.DataRow("出生年月") = ReadBirthday(e.DataRow("身份证号"))
e.DataRow("性别") = ReadSex(e.DataRow("身份证号"))
End If
End If
If e.DataCol.Name = "出生年月" Then
If e.DataRow.IsNull("出生年月") Then '如果没有输入出生年月
e.DataRow("年龄") = Nothing '则清空年龄
Else
'否则计算年龄
e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生年月").Year
End If
End If
这是我的人事管理中的代码
|
加好友 
发短信
Post By：2009/4/9 14:44:00 [只看该作者]
