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

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 = " "
        End If
    end If
End If

当身份证号位数录入错误时，提示错误后，点确定，录入框数据清空，光标停靠在录入框，如何实现？

如何利用BeforeSaveDataRow进行审核，比如：审核第八行的职务！！！！

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

点击浏览该文件:模糊查询解决.table

版主帮帮忙，谢谢

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

代码如何写，谢谢

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

在表中验证，在录入窗口弹出

验证录入的参加工作时间要小于出生时间，验证录入的身份证件号，验证录入的职务和工资是否衔接

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

点击浏览该文件:模糊查询解决.table

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


蒙一下，我在你原来的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都有验证代码，是不是重复了？

验证录入的参加工作时间要小于出生时间,验证录入的职务和工资是否衔接,