主题：[求助]如何根据出生日期或身份证号码生成年龄

在表的datacolchanged事件中加以下代码：

If e.DataCol.Name = "身份证号"  And  e.DataRow("身份证号") IsNot Nothing Then
    Dim dt1 As Date
    dt1=Date.today()
    Dim dt2 As Date=e.DataRow("出生日期")
    Dim y,m,d As Integer
    DateYMD(dt1,dt2,y,m,d)
    If m*d<>0 Then
        y=y+1
    End If
    e.DataRow("年龄")=y
End If

出生年月是从身份证号中提取的，所以有第一行这样的判断，因为以上代码是摘录的，不全