标题：如何实现这种想法？谢谢

1楼

杨浩发表于：2009/8/10 22:17:00

设置一个按钮，点击以后审核数据，有错误的数据列表提示！！！谢谢

2楼

yangming 发表于：2009/8/10 22:44:00

你这样的说法，让人怎么回答你？等于白说，呵呵

3楼

杨浩发表于：2009/8/11 9:32:00

我的目的就是要审核调资基础数据的身份证号位数、性别、出生日期、参加工作时间大于出生日期，然后在审核结果窗口内出现审核信息！！！！谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:rsgzglxt.rar

4楼

杨浩发表于：2009/8/11 9:34:00

还有就是登陆窗口没有实现得到！！！谢谢

5楼

杨浩发表于：2009/8/11 9:46:00

版主，帮帮忙谢谢

6楼

yangming 发表于：2009/8/11 9:58:00

哪个表哪个窗口?调资基础数据不是从人理表中填充过来的吗?为何不开始录入的时候不审呢? 还有就是性别、出生日期都可以从身份证号中提取到啊,无须审的

[此贴子已经被作者于2009-8-11 10:00:16编辑过]

7楼

杨浩发表于：2009/8/11 10:02:00

人事工资管理表中的数据是去年的基础数据，已经是录好了的，很多有几千人，不可能去重新录入！！！窗口在在审核结果表内！！！谢谢

8楼

yangming 发表于：2009/8/11 10:16:00

1 forms("登录").open,而不是forms("登陆").open,
2 要放在

AfterOpenProject事件中

项目已经完全打开后执行，此时DataTable、Table和窗口都已经生成。
3 要禁止关闭窗口

9楼

yangming 发表于：2009/8/11 10:20:00

那你根据什么去审核身份证号?只是看位数?

10楼

mr725 发表于：2009/8/11 10:53:00

这样?::::   在调资基础数据表上做个按钮(这是单行审核):::::::要全表审核,用 for..........next

if currenttable.current("出生时间") = ReadBirthday(currenttable.current("身份证号")) then
    MessageBox.Show("对头!" )
else
    MessageBox.Show("对啥子头嘛!" )
    Dim dr As DataRow = DataTables("审核结果").DataRows.AddNew()
    dr("单位名称") = currenttable.current("单位名称")
    dr("姓名") = currenttable.current("姓名")
    dr("错误信息") = "身份证号与出生时间矛盾!"
    Maintable = Tables("审核结果")
end if

共84 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6][7][8]