- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 版主帮忙看看代码，谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3613)
-- 发布时间：2009/7/17 13:47:00
-- 版主帮忙看看代码，谢谢
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
当身份证号位数录入错误时，提示错误后，点确定，录入框数据清空，光标停靠在录入框，如何实现？
-- 发布时间：2009/7/17 14:13:00
--
如何利用BeforeSaveDataRow进行审核，比如：审核第八行的职务！！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:模糊查询解决.table |
-- 发布时间：2009/7/17 15:06:00
--
版主帮帮忙，谢谢
-- 发布时间：2009/7/17 15:19:00
--
如果这样，你先看看ValidateEdit事件，这个专门用于输入校对。
-- 发布时间：2009/7/17 15:35:00
--
代码如何写，谢谢
-- 发布时间：2009/7/17 15:44:00
--
在录入窗口验证还是表中验证？
-- 发布时间：2009/7/17 15:45:00
--
在表中验证，在录入窗口弹出
-- 发布时间：2009/7/17 15:56:00
--
验证录入的参加工作时间要小于出生时间，验证录入的身份证件号，验证录入的职务和工资是否衔接
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:模糊查询解决.table |
-- 发布时间：2009/7/17 15:57:00
--
什么叫表中验证，窗口弹出？
蒙一下，我在你原来的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都有验证代码，是不是重复了？
-- 发布时间：2009/7/17 16:19:00
--
验证录入的参加工作时间要小于出生时间,验证录入的职务和工资是否衔接,