主题：给你一个身份证号码怎么样计算出他的出生日期和年龄

看10楼。

狐爸   那个出生日期的代码给我下

Select Case e.DataCol.name
    Case "身份证号码"
        If e.DataRow.IsNull("身份证号码") Then
            e.DataRow("年龄") = Nothing
            e.DataRow("出生日期") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - ReadBirthDay(e.DataRow("身份证号码"))
             e.DataRow("出生日期") = ReadBirthDay(e.DataRow("身份证号码"))
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End If
End Select
 

呵呵，楼主你有点操之过急了。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

我用了您的代码。年龄的那个。输入身份证号码自动出现年龄，可为什么无法保存呢？关掉再打开就没有年龄了。

原因可能是：

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