老师,籍贯怎样提取出来。
If e.DataCol.Name = "个人基本资料_身份证号码" Then '如果更改的是身份证号码列
If e.DataRow.IsNull("个人基本资料_身份证号码") Then '身份证号码是否为空
e.DataRow("个人基本资料_出生年月") = Nothing '如果为空,则清除出生日期
e.DataRow("个人基本资料_性别") = Nothing '如果为空,则清除出生日期
e.DataRow("个人基本资料_籍贯") = Nothing '如果为空,则清除出生日期
e.DataRow("个人基本资料_年龄") = Nothing '如果为空,则清除出生日期
Else
'否则从身份证号码列中提取出生日期
e.DataRow("个人基本资料_出生年月") = ReadBirthday(e.DataRow("个人基本资料_身份证号码"))
e.DataRow("个人基本资料_性别") = ReadSex(e.DataRow("个人基本资料_身份证号码"))
e.DataRow("个人基本资料_年龄") =Functions.Execute("服务器时间").Year - e.DataRow("个人基本资