主题：版主帮忙看看代码，谢谢

如果这样，你先看看ValidateEdit事件，这个专门用于输入校对。

在录入窗口验证还是表中验证？

什么叫表中验证，窗口弹出？


蒙一下，我在你原来的DataColChaning加了几句：


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 = False '取消输入
            MessageBox.Show("身份证号输入无效,请核对!!!","提示")
            e.NewValue = " "
            If Forms("数据录入窗口").Opened Then
               Forms("数据录入窗口").Controls("身份证号").Select()
            End If
        End If
    end If
End If


我留意到你在DataColChaning和DatacolChanged都有验证代码，是不是重复了？

DatacolChanged事件另加一段：

Select Case e.Datacol.Name
    Case "出生时间","参加工作时间"
        If e.DataRow("参加工作时间") < e.DataRow("出生时间") Then
            messagebox.show("参加工作时间必须大于出生时间")
        End If
end Select

磨刀不误砍柴工，先去看帮助吧。
否则下次遇到同样的问题，你还是不会。
你看到你的问题都基本类似吗？
如果你系统地学习帮助，那会浪费这么多时间。