Select Case e.DataCol.name Case "个人信息_身份证号码" If e.DataRow.IsNull("个人信息_身份证号码") Then e.DataRow("个人信息_年龄") = Nothing Else Dim tp As TimeSpan = Date.today - ReadBirthDay(e.DataRow("个人信息_身份证号码")) e.DataRow("个人信息_年龄") = Math.Round(tp.TotalDays / 365.2422,2) e.DataRow("个人信息_生肖")="猴鸡狗猪鼠牛虎兔龙蛇马羊".SubString((ReadBirthDay(e.DataRow("个人信息_身份证号码")).year Mod 12),1) End If End Select 老师,我想在这代码中加入一个自动提取性别的代码。
|