主题：身份证号码和年龄

If e.DataCol.Name = "第一列" Then

    If e.DataRow.IsNull("第一列") = False

        Dim d As Date

        Dim i As Integer

        d = ReadBirthday(e.DataRow("第一列"))

        i = DateDiff("yyyy",d,Date.today)

        e.DataRow("第二列") = i & "岁"

    Else

        e.DataRow("第二列")=Nothing

    End If

End If