标题：求教

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

点击浏览该文件:sy.table

表中年龄的列是自动计算出来的，如果不要出生年列，年龄的代码该如何编写，谢谢！

 

if e.DataRow("身份证号") IsNot Nothing Then

   Dim t As Integer = Date.Today.year

   Dim y As Date = ReadBirthday(e.DataRow("身份证号"))

   Dim d AS Integer = y.Year

   e.DataRow("年龄") = t - d

End if

年龄的代码：
if e.datarow("出生日期") isnot nothing then
   e.DataRow("年龄") =Date.Today.year- e.datarow("出生日期").year
end if