主题：[求助]年龄如何自动更新

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

以下是引用sloyy在2012-7-9 23:32:00的发言：
这就是数据库设计不严谨造成的,你这个年龄完全可以根据身份证计算得出,放在数据库里面就是多余的数据

以下是引用qihehuang在2015-1-28 15:20:00的发言：
麻烦老师给我这个初学者指导一下，谢谢，根据出生日期，得到当前年龄。