标题：[求助如何校验登记时的年龄的准确性?(已解决)

资料输入时,部分人是有身份证.部分人是没有身份证的. 如果有身份证号码的话.在输入登记日期时校验一下.登记时年龄的准确性.可以的话也最好校验下性别的准确性. 谢谢.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:校验登记时年龄.table

http://www.foxtable.net/help/topics/1587.htm

看看这个帮助，应该对你有用

只是校验部分不会做. 请高手指点.

年龄：e.DataRow("登记时年龄") = e.DataRow("登记日期").Year - e.DataRow("出生日期").Year 用不着再效验了；

性别：e.DataRow("性别") = ReadSex(e.DataRow("身份证号码"))   也用不着再效验···

上面的年龄比较只是年份比较，我要求是精确到日的。比如：生日是2010年5月1日 要到2011年5月1日才是1岁。2011年4月1日还是0岁11个月。 一楼说明了。有些资料是没身份证号码的（就不能生成“出生日期”）。如果用公式将身份证号码的内容转为年龄和性别，没号码的年龄，性别资料会出错的。 在输入资料时，做个校验，防止出错。

DataColChanging使用刚刚输入的值，必须使用e.NewValue表示，如果使用e.DataRow("列名")，是输入前的值，就是旧值。

 

正确代码：

 

If e.DataCol.Name = "身份证号码" Then
        If e.NewValue IsNot Nothing Then
            Dim d As Date = ReadBirthDay(e.NewValue)
            Dim s As String = ReadSex(e.NewValue)
            If s = "" OrElse d < #1/1/1900# Then
                e.Cancel = True '取消输入
                MessageBox.Show("身份证无效输入")
            End If
        End If
End If
If e.DataCol.Name = "登记日期" Then
    If e.DataRow.IsNull("出生日期") = True OrElse e.NewValue Is Nothing Then
        Return
    Else
        Dim n As Integer = e.NewValue.Year - e.DataRow("出生日期").Year
        If e.DataRow("出生日期").AddMonths(n*12) > e.NewValue Then
            n = n -1
        End If
        If e.DataRow("登记时年龄") <> n Then
            e.Cancel = True
            MessageBox.Show("年龄与身份证不符!")
        End If
    End If
End If

 

建议仔细看看这两个事件的差别：

http://www.foxtable.net/help/topics/0624.htm

http://www.foxtable.net/help/topics/0625.htm

 

谢谢狐爸的帮助.完美解决.