主题：求助，利用身份证号码自动提取出生年月日，及计算年龄。

还有希望身份证号码是数质型，但设置了数质型，就不能设置18位数，利用身份证号码自动提取出生年月日，及计算年龄。
此主题相关图片如下：t.jpg

有一个ReadBirthday（）的参数，可以直读取身份证的出生日期

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then  '身份证号码是否为空
            e.DataRow("出生日期") = Nothing  '如果为空,则清除出生日期
            e.DataRow("性别") = Nothing  '如果为空,则清除出生日期
            e.DataRow("年龄") = Nothing '如果为空,则清除年龄
        Else
            '否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
            e.DataRow("性别") = ReadSex(e.DataRow("身份证号"))
            Dim d As Date = ReadBirthday(e.DataRow("身份证号"))
            Dim y As Integer = d.year
            If format(d, "MMdd") <= Format(Date.Today, "MMdd") Then
                e.DataRow("年龄") = Date.Today.Year - y
            Else
                e.DataRow("年龄") = Date.Today.Year - y -1
            End If
        End If
End Select

千言万语只有两字。谢谢！

千言万语只有两字。谢谢帮助消化！

这个性别都有显示，年龄和出生日期没有显示，我删除了数据，重新编辑也是这样，
我看了很久，没明白，
此主题相关图片如下：fff.jpg

年龄和出生日期不要用表达式列，改为数据列。

http://www.foxtable.com/webhelp/scr/1380.htm

 

谢谢老师，一眼看出问题在哪儿。就是不能用表达式。