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

2楼告诉你怎么根据身份证提取出生日期，根据出生日期计算年龄参考：

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

复制帮助的计算代码，根据二楼的内容，稍作调整
 
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)
        End If
End Select

代码写在DataColChanged事件。

看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