主题：如何从身份证号中取年份

呵呵，有了日期，去年份不是很简单吗？

http://www.foxtable.com/help/topics/1424.htm

http://www.foxtable.com/help/topics/1337.htm

http://www.foxtable.com/help/topics/0249.htm

If e.DataCol.Name = "身份证号码" Then '是身份证号码发生变化吗?
    If e.DataRow.IsNull("身份证号码") Then '身份证号码是否为空
        e.DataRow("年") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("年") = ReadBirthday(e.DataRow("身份证号码")).Year()
    End If
End If