- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现这种想法？谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3851)
-- 发布时间：2009/8/10 22:17:00
-- 如何实现这种想法？谢谢
设置一个按钮，点击以后审核数据，有错误的数据列表提示！！！谢谢
-- 发布时间：2009/8/10 22:44:00
--
你这样的说法，让人怎么回答你？等于白说，呵呵
-- 发布时间：2009/8/11 9:32:00
-- 版主帮忙看看，谢谢
我的目的就是要审核调资基础数据的身份证号位数、性别、出生日期、参加工作时间大于出生日期，然后在审核结果窗口内出现审核信息！！！！谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
-- 发布时间：2009/8/11 9:34:00
--
还有就是登陆窗口没有实现得到！！！谢谢
-- 发布时间：2009/8/11 9:46:00
--
版主，帮帮忙谢谢
-- 发布时间：2009/8/11 9:58:00
--
哪个表哪个窗口?调资基础数据不是从人理表中填充过来的吗?为何不开始录入的时候不审呢? 还有就是性别、出生日期都可以从身份证号中提取到啊,无须审的
[此贴子已经被作者于2009-8-11 10:00:16编辑过]
-- 发布时间：2009/8/11 10:02:00
--
人事工资管理表中的数据是去年的基础数据，已经是录好了的，很多有几千人，不可能去重新录入！！！窗口在在审核结果表内！！！谢谢
-- 发布时间：2009/8/11 10:16:00
--
1 forms("登录").open,而不是forms("登陆").open,
2 要放在
AfterOpenProject事件中
项目已经完全打开后执行，此时DataTable、Table和窗口都已经生成。
3 要禁止关闭窗口
-- 发布时间：2009/8/11 10:20:00
--
那你根据什么去审核身份证号?只是看位数?
-- 发布时间：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